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