|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vitus@ice.ru 2:5020/400 26 Jul 2000 21:43:49
To : Roman Karshiev
Subject : Re: Регэкспы - трансляция в цепочку букв.
--------------------------------------------------------------------------------
Roman Karshiev <kron@beep.ru> wrote:
RK>Как сочнить такой tr/../../ (и возможно ли), чтобы
RK>"абёя" -> "abyoya"
RK>Т.е. транслитерацию сделать...
RK>Что-то в доке по tr нифига не найду...
Это не tr. Это s.
%translit=(
'А'=>'a',
....
'Ж'=>'zh',
...
'я'=>'ya');
s/([А-я])/$translit{$1}/g;
(если кодировка koi8, диапазон должен быть ю-Ъ, если 866 то A-пр-я)
А вообще, если подумать, то проще какой-нибудь Unicode::Map8 или
Lingua::Charset взять.
--
Victor Wagner vitus@ice.ru
Programmer Office:7-(095)-785-09-72
Communiware.Net Home: 7-(095)-135-46-61
http://www.communiware.net http://www.ice.ru/~vitus
--- ifmail v.2.15dev5
* Origin: AG Telecom news2 server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
