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

[Dmitry E. Oboukhov]

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: unera на debian.org jabber://UNera@uvw.ru
`. `~’              GPGKey: 1024D / F8E26537 2006-11-21
  `- 1B23 D4F8 8EC0 D902 0555  E438 AB8C 00CF F8E2 6537
----------- следущая часть -----------
A non-text attachment was scrubbed...
Name: отсутствует
Type: application/pgp-signature
Size: 198 bytes
Desc: Digital signature
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20091215/399fb97a/attachment.bin>