16 lines
321 B
Perl
16 lines
321 B
Perl
#!/bin/perl
|
|
|
|
open V, "<var.txt";
|
|
while (<V>) {
|
|
($k,$v) = /^! (__.*__) (.*)\n*$/;
|
|
next if ($k eq "" or $v eq "");
|
|
$h{$k}=$v;
|
|
}
|
|
close V;
|
|
|
|
open T, "<temp.txt"; open R, ">res.txt";
|
|
while (<T>) {
|
|
for ($i=0; $i<=5; $i++) { foreach $k (keys %h) { s/$k/$h{$k}/g; } }
|
|
printf R unless (/__.*__/);
|
|
}
|
|
close T; close R; |