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

Tue, 15 Dec 2009 01:21:35 -0800 

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;



-- 
... mpd is off

. ''`.                               Dmitry E. Oboukhov
: :’  :   email: [email protected] jabber://[email protected]
`. `~’              GPGKey: 1024D / F8E26537 2006-11-21
  `- 1B23 D4F8 8EC0 D902 0555  E438 AB8C 00CF F8E2 6537

Attachment: signature.asc
Description: Digital signature

--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить