[Moscow.pm] Транслитерация

[Alexander Lourier]

On Wednesday 25 November 2009 11:17:40 Alexander Lourier wrote:
> On Wednesday 25 November 2009 09:27:00 Dmitry E. Oboukhov wrote:
> > А кто что использует в окружении use utf8 по возможности максимально
> > живое и простое для сабжа?
> >
> > нужно пока только в одну сторону - русский->транслит
>
> use utf8;
> use Lingua::Translit;
> my $tr = new Lingua::Translit('Streamlined System BUL');
> print $tr->translit("Работает даже Шарифулин!\n");
>
> $ ./test.pl
> Rabotaet dazhe Sharifulin!

О, посмотрел, он "ы" неправильно транслитерирует. Нашел другой модуль - получше.

use utf8;
use Lingua::RU::PhTranslit;
use Encode qw(encode);

print koi2phtr(encode('koi8-r', "Работает даже Шарифулин!\n"));