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