форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"tr// заменяет один символ на два?!"

Сообщение от leon_ti (ok) on 21-Ноя-06, 11:16

Здравствуйте, коллеги. Пытаюсь написать перекодировщик 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". Что я делаю не так?! Откуда берется вторая буква в результате?...

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Сообщения по теме

[Сортировка по времени, UBB]

1. "tr// заменяет один символ на два?!"

Сообщение от chip (ok) on 23-Ноя-06, 17:34

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

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	2. "tr// заменяет один символ на два?!"
	Сообщение от leon_ti (ok) on 12-Дек-06, 12:49
	> >>Что я делаю не так?! Откуда берется вторая буква в результате?... > >Какая версия perl'a? Может поиграться с директивой utf8 (use utf8)? Да, дело оказалось в utf-8. Правда, пришлось ещё использовать процедуры encode-decode, иначе строки между подпрограммами искажались.
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]