crayon-syntax-highlighter/util/sample/perl.txt

14 lines
240 B
Plaintext
Raw Normal View History

2019-08-30 19:30:19 +02:00
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;
}