Преобразование на Perl русского текста в транслит - Работа с текстом - Интересные решения для программистов - Примеры кода

Работа с текстом → Преобразование на Perl русского текста в транслит → Perl

Этот пример на языке перл (perl) позволяет вам преобразовать русский текст в транслит (т. е. на русский написанный латинскими буквами)

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

}

convert, language, perl, translit

Mr. D

unknown

29.11.2008

вадим [Добавлено 07.05.2012 18:49:35]

не пашет

Меню

Подписка на RSS:

Подпишись на RSS-ленту

Поиск

Облако тегов

	Работа с текстом → Преобразование на Perl русского текста в транслит → Perl Этот пример на языке перл (perl) позволяет вам преобразовать русский текст в транслит (т. е. на русский написанный латинскими буквами) 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 $_; } convert, language, perl, translit Mr. D unknown 29.11.2008 вадим [Добавлено 07.05.2012 18:49:35] не пашет Ваше имя Ваш E-mail (если хотите отслеживать комментарии) Дoкажи, что ты не робот Текст комментария	Меню CodeIgniter Алгоритмы Базы данных Дата и Время Интернет Интерфейс Мультимедиа ОС и Железо Работа с текстом Разное Технологии Файлы Подписка на RSS: Подпишись на RSS-ленту Поиск Облако тегов .net array asp bash browser charset check class clean convert count create css curl database date delete directory download element email equivalent extension file find form format function get height html http ie image javascript jquery load mysql number page perl php random scriplet send shell size sql string text time url utf8 variable vb visual basic width window xml xslt