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.../;
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
