[ новости /+++ | форум | теги | ]

<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>

Ключевые слова: perl, example, rus, translate, convert,  (найти похожие документы)

Date: Wed, 19 Jun 2002 22:37:57 +0400
From: Feodor Baliberdin <Feodor.Baliberdin@p171.f666.n4641.z2.fidonet.org>
Newsgroups: fido7.ru.perl
Subject: Преобразование на Perl русского текста в транслит

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 $_;

}

<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>

1.1, Аноним (1), 02:41, 02/04/2003 [ответить]   +/– dravstvujte, Vladimir. Mozhete posmotret' moyu ssylku na vash sajt na stranice 1234 Esli chto-nibud' nado ispravit', pozhalujsta, soobschite.   1.2, tmp000 (?), 14:57, 21/09/2004 [ответить]   +/– Спасибо за скриптик очень пригодился. Прикрутил к отправке sms :)   1.4, Den (??), 07:42, 24/04/2006 [ответить]   +/– Небольшой косячок надо исправить или учитывать при копировании данных функций из браузера. В обоих tr/*/*/ Русская 'Н' на самом деле латинская 'Н'. русская большая эн, на самом деле латинская большая ХА. :-) PS: Правда это мог мой браузер взглючить, или не мог.     2.5, bbot (??), 12:48, 10/09/2007 [^] [^^] [^^^] [ответить]   +/– Не мог, этот скриптик из Фидо к нам пришел.   1.6, Константин (??), 16:58, 17/09/2014 [ответить]   +/– Спасибо большое. Просьба поправить русскую "Н" на Н. А то не все комменты читают :)   1.7, Евгений (??), 11:20, 11/07/2016 [ответить]   +/– в конце последней функции последнего tr перед return забыта ";"   1.8, Алексей (??), 23:03, 04/06/2020 [ответить]   +/– В функции k82tr, в первых нескольких заменах отсутствует модификатор /g - что означает, что замена будет произведена только один раз в строке. Например: s/Сх/S\'h/; нужно заменить на s/Сх/S\'h/g;   игнорирование участников | лог модерирования

Партнёры:

Хостинг: