The OpenNET Project / Index page

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

Преобразование на Perl русского текста в транслит (perl example rus translate convert)


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

Обсуждение [ RSS ]
  • 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;
     

    игнорирование участников | лог модерирования

     Добавить комментарий
    Имя:
    E-Mail:
    Заголовок:
    Текст:




    Партнёры:
    PostgresPro
    Inferno Solutions
    Hosting by Hoster.ru
    Хостинг:

    Закладки на сайте
    Проследить за страницей
    Created 1996-2024 by Maxim Chirkov
    Добавить, Поддержать, Вебмастеру