1#!/usr/bin/env perl
2
3use warnings;
4
5die "Two args plz (dat/descript/foo.{key,val}), m'kay?\n" if $#ARGV != 1;
6
7undef $/;
8
9open IN, "<", $ARGV[0] or die "Can't open $ARGV[0]\n";
10$_ = <IN>;
11close IN;
12my @keys = split /%%%%\n/s;
13
14open IN, "<", $ARGV[1] or die "Can't open $ARGV[1]\n";
15$_ = <IN>;
16close IN;
17my @vals = split /%%%%\n/s;
18
19die "$#keys keys but $#vals vals\n" if $#keys != $#vals;
20
21open OUT, ">spliced.txt" or die "Can't write to spliced.txt\n";
22for (0..$#keys)
23{
24    print OUT ($vals[$_] ? "$keys[$_]\n$vals[$_]%%%%\n" : "$keys[$_]%%%%\n");
25}
26close OUT;
27
28print "Output written as ./spliced.txt, please review it before installing.\n";
29