|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Feodor Baliberdin 2:4641/666.171 19 Jun 2002 23:37:57
To : Rostislav Podgornyi
Subject : русский текст -> в транслит
--------------------------------------------------------------------------------
19 июня 2003 08:47, Rostislav Podgornyi писал All:
[ Простите, что встрял в разговор... ]
RP> Hи у кого случайно нету скpипта, котоpый занимается пpеобpазованием
RP> pусского текста в тpанслит?
Случайно есть, вот копирайт сорри не сохранился, а вообще смотри...
------------------------[ линия отреза ]-------------------------
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 $_;
}
sub tr2k8
{ ($_)=@_;
#
# Fonetic correct translit
#
s/E\'/Э/g; s/e\'/э/g;
s/E/Е/g; s/e/е/g;
s/Jo/Ё/g; s/jo/ё/g;
s/J\'o/Йо/g; s/j\'o/йо/g; s/J\'O/ЙО/g;
s/Sch/Щ/g; s/sch/щ/g;
s/Sc\'h/Сцх/g; s/sc\'h/сцх/g; s/SC\'H/СЦХ/g;
s/Ch/Ч/g; s/ch/ч/g;
s/C\'h/Цх/g; s/c\'h/цх/g; s/C\'H/ЦХ/g;
s/Sh/Ш/g; s/sh/ш/g;
s/S\'h/Сх/g; s/s\'h/сх/g; s/S\'H/СХ/g;
s/Ja/Я/g; s/ja/я/g;
s/J\'a/Йа/g; s/j\'a/йа/g; s/J\'A/ЙА/g;
s/Zh/Ж/g; s/zh/ж/g;
s/Z\'h/Зх/g; s/z\'h/зх/g; s/Z\'H/ЗХ/g;
s/Ju/Ю/g; s/ju/ю/g;
s/J\'u/Йу/g; s/j\'u/йу/g; s/J\'U/ЙУ/g;
tr/
abvgdzijklmnoprstufhc\"y\'ABVGDZIJKLMNOPRSTUFHC\"Y\'/
абвгдзийклмнопрстуфхцъыьАБВГДЗИЙКЛМHОПРСТУФХЦЪЫЬ/
return $_;
}
------------------------[ линия отреза ]-------------------------
ъ ъъъДН» Hа SIM смею отCLANяться... _*Rostislav*_ !
ИНННННННННННННННДДДДДДДДДДДДДДДДДъъъъъ ъ ъ ъ
... ["Samurai live in Sword and Must Die - KAIGORO"] [SSMoD - hackers]
--- ["..."] GoldED+/W32 1.1.5-20020104 [echoWAR]
* Origin: "***КатаЛИзаТОР сетей ." NOT . CRIME (2:4641/666.171)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
