Привет! 15 декабря 2009 г. 11:21 пользователь Dmitry E. Oboukhov <[email protected]> написал: > 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;
Спасибо, то что надо, и красиво к тому же. :) -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
