Re: Advice on how to approach character translation

From: "R (Chandra) Chandrasekhar" <chandra@[EMAIL PROTECTED]
>
> 3. Some transliteration examples are shown below:
> 
> a       a   U+0061   LATIN SMALL LETTER A
> aa      a   U+0101   LATIN SMALL LETTER A WITH MACRON
> A       a   U+0101   LATIN SMALL LETTER A WITH MACRON
> .a      '   U+0027   APOSTROPHE
> ~N         U+1E45   LATIN SMALL LETTER N WITH DOT ABOVE
> RRI        U+1E5D   LATIN SMALL LETTER R WITH DOT BELOW AND MACRON
> R^I	   U+1E5D   LATIN SMALL LETTER R WITH DOT BELOW AND MACRON

Put the transliteration rules into a hash like this:

 %trans =3D (
  'aa' =3D> 'a',
  'A'  =3D> 'a',
  '.a' =3D> "'",
  ...
 );

and build a regexp to match the 1-3 characters to replace:

 @[EMAIL PROTECTED]
 =3D sort {length($b) <=3D> length($a)} keys %trans;
 @[EMAIL PROTECTED]
 =3D map quotemeta($_) @[EMAIL PROTECTED]
 $re =3D join '|', @[EMAIL PROTECTED]
 '.';

and use the regexp to split the text into pieces and transliterate 
them.

 $text =3D~ s/($re)/exists($trans{$1}) ? $trans{$1} : $1/geo;

HTH, Jenda
=3D=3D=3D=3D=3D Jenda@[EMAIL PROTECTED]
 =3D=3D=3D http://Jenda.Krynicky.cz
=3D=3D=
=3D=3D=3D
When it comes to wine, women and song, wizards are allowed 
to get drunk and croon as much as they like.
	-- Terry Pratchett in Sourcery