[Moscow.pm] Преобразовать похожие символы рус- > лат

[Alexander Lourier]

On Tuesday 15 December 2009 12:21:00 Dmitry E. Oboukhov wrote:
> On 10:22 Tue 15 Dec     , Denis Zhdanov wrote:
> DZ> Всем привет!
> DZ> Вопрос - не встречал ли кто функции или модуля, которая по заданным
> DZ> правилам преобразует похожие по написанию русские буквы в латинские?
> DZ> Русское А - в латинское A
> DZ> Русское X - в латинское X
> DZ> Русское У - в латинское Y
> DZ> и т.д.
> DZ> Именно с русских в латинские, и чтоб UTF-8 понимало?
>
> use utf8;
>
> my %th = qw(
>     у y   е e   а a   р p
>     о o   с c   Е E   Н H
>     З 3   Х X   В B   А A
>     Р P   О O   К K   С C
>     M М   Т T   Ь b);
>
> $str =~ s/((??{join '|', keys %th}))/$th{$1}/ges;

$str =~ tr/уеа.../yea.../;