Name: Anonymous 2007-08-08 2:34 ID:Rrlz6FXf
Discuss
lwAggroExt=14
$oldStr = "";
$newStr ="";
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;
}