Здравствуйте, коллеги.
Пытаюсь написать перекодировщик utf-8 в транслит.
Для этого использую следующую функцию:

sub translit
{
my $text = shift;
$text =~ y/абвгдеёзийклмнопрстуфхъыьэ/abvgdeezijklmnoprstufh'y'e/;
print "\nTransilt: $text\n";
$text =~ y/АБВГДЕЁЗИЙКЛМНОПРСТУФХЪЫЬЭ/ABVGDEEZIJKLMNOPRSTUFH'Y'E/;
my %mchars = ('ж'=>'zh','ц'=>'ts','ч'=>'ch','ш'=>'sh','щ'=>'sch','ю'=>'ju',
                        'я'=>'ja', 'Ж'=>'Zh','Ц'=>'Ts','Ч'=>'Ch','Ш'=>'Sh','Щ'=>'Sch',
                        'Ю'=>'Ju','Я'=>'Ja');
        for my $c (keys %mchars) {
$text =~ s/$c/$mchars{$c}/g;
        }
return $text;
}

Вызов print translit("а")."\n";
дает результат "Translit: ab".

Что я делаю не так?! Откуда берется вторая буква в результате?...

• tr// заменяет один символ на два?!,chip, 17:34 , 23-Ноя-06
  • tr// заменяет один символ на два?!,leon_ti, 12:49 , 12-Дек-06

>Что я делаю не так?! Откуда берется вторая буква в результате?...

Какая версия perl'a? Может поиграться с директивой utf8 (use utf8)?

>
>>Что я делаю не так?! Откуда берется вторая буква в результате?...
>
>Какая версия perl'a? Может поиграться с директивой utf8 (use utf8)?

Да, дело оказалось в utf-8.
Правда, пришлось ещё использовать процедуры encode-decode, иначе строки между подпрограммами искажались.