6 my ($in, $out) = @ARGV;
12 /^(?:seta?\s)?\s*(\S+)\s+(.*)/
17 my %changes_unapplied = %changes;
24 /^(seta?\s?\s*)(\S+)(\s+)(.*)/
25 or do { $result .= "$_\n"; next; };
26 my $v = exists($changes{$2}) ? $changes{$2} : $4;
27 $result .= "$1$2$3$v\n";
28 delete $changes_unapplied{$2};
34 print $fh "set $_ $changes_unapplied{$_}\n" for keys %changes_unapplied;