Re: Advice on how to approach character translation

Jenda Krynicky wrote:
....
> and build a regexp to match the 1-3 characters to replace:
> 
>  @[EMAIL PROTECTED]
 = sort {length($b) <=> length($a)} keys %trans;

Thanks for this priceless construct. It was very helpful indeed.

>  @[EMAIL PROTECTED]
 = map quotemeta($_) @[EMAIL PROTECTED]
 = map quotemeta($_), @[EMAIL PROTECTED]
 # needed a comma here

>  $re = join '|', @[EMAIL PROTECTED]
 '.';
> 
> and use the regexp to split the text into pieces and transliterate 
> them.
> 
>  $text =~ s/($re)/exists($trans{$1}) ? $trans{$1} : $1/geo;

I have confirmed that it works as intended.

> HTH, Jenda

Thank you very much.

Chandra