14 lines
240 B
Plaintext
14 lines
240 B
Plaintext
|
while (<STDIN>) {
|
||
|
|
$oldStr = $_;
|
||
|
|
foreach $k (keys %dic) {
|
||
|
|
s/$k/$dic{$k}/g;
|
||
|
|
}
|
||
|
|
|
||
|
|
$newStr = $_;
|
||
|
|
if ($oldStr ne $newStr) {
|
||
|
|
print STDERR "\n";
|
||
|
|
print STDERR "old>>$oldStr";
|
||
|
|
print STDERR "new>>$newStr";
|
||
|
|
}
|
||
|
|
print;
|
||
|
|
}
|