note
choroba
Too many curlies. [toolic]'s advice is good, but you can safely remove even more:<c>
s/$thing/$translate{$thing}/g;
</c>
Be careful, though, if one translation results in a word that another translation might translate again.<br>
Sometimes, avoiding the inner loop by constructing the regex leads to a faster solution:
<c>
my $re = join '|', keys %translate;
$re = qr/($re)/;
while (<>) {
s/$re/$translate{$1}/g;
print;
}
</c>
You might need to add some <c>\b</c> boundaries to the regex so it does not match in the middle of a word.
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-832495">
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
</div></div>
1006270
1006270