ru.linux
- RU.LINUX ---------------------------------------------------------------------
From : Sergey Shibeko 2:5031/32 27 Aug 2002 10:49:57
To : Dmitry Cherepennikov
Subject : Re: rus > translit
--------------------------------------------------------------------------------
DC> Как все таки русский текст перевести в транслит? Стандартно, насколько я
DC> понимаю, никак. А может у кого готовый скрипт есть?
Чье - не помню:
на перле.
sub k82tr
{ ($_)=@_;
#
# Fonetic correct translit
#
s/Сх/S\'h/; s/сх/s\'h/; s/СХ/S\'H/;
s/Ш/Sh/g; s/ш/sh/g;
s/Сцх/Sc\'h/; s/сцх/sc\'h/; s/СЦХ/SC\'H/;
s/Щ/Sch/g; s/щ/sch/g;
s/Цх/C\'h/; s/цх/c\'h/; s/ЦХ/C\'H/;
s/Ч/Ch/g; s/ч/ch/g;
s/Йа/J\'a/; s/йа/j\'a/; s/ЙА/J\'A/;
s/Я/Ja/g; s/я/ja/g;
s/Йо/J\'o/; s/йо/j\'o/; s/ЙО/J\'O/;
s/Ё/Jo/g; s/ё/jo/g;
s/Йу/J\'u/; s/йу/j\'u/; s/ЙУ/J\'U/;
s/Ю/Ju/g; s/ю/ju/g;
s/Э/E\'/g; s/э/e\'/g;
s/Е/E/g; s/е/e/g;
s/Зх/Z\'h/g; s/зх/z\'h/g; s/ЗХ/Z\'H/g;
s/Ж/Zh/g; s/ж/zh/g;
tr/
абвгдзийклмнопрстуфхцъыьАБВГДЗИЙКЛМHОПРСТУФХЦЪЫЬ/
abvgdzijklmnoprstufhc\"y\'ABVGDZIJKLMNOPRSTUFHC\"Y\'/;
return $_;
}
--- ifmail v.2.14.os-p7
* Origin: Анархия - мать порядка (2:5031/32@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
