Транслитерация кириллицы в perl. Lingua::Translit

Главная → Perl → Транслитерация кириллицы в perl

В продолжении темы парсинга входных параметров текстовых полей с помощью javascript-фильтра, хочу поделится отличной находкой Lingua::Translit. Модуль лежит в CPAN, здесь. Это на случай если требуется создать еще более удобную форму. Юзер пишет все что хочет, а на выходе имеем то что нужно.

Например, если нужно автоматом создать URL для страницы через транслит h1.

Код:

use Lingua::Translit;

my $str = 'Новая статья про транслит.';	
my $tr = new Lingua::Translit("GOST 7.79 RUS");
my $result;
if ($tr->can_reverse()) {
    $result = $tr->translit($str);
}