Транслитерация разными путями

[shoorick]

Перловый модуль Lingua::Translit умеет транслитерировать нелатинский текст множеством способов. Для русской кириллицы таких способов — пять четыре:

#!/usr/bin/perl

use Lingua::Translit;

my $sample = 'Эй, жлоб! Где туз? Прячь юных съёмщиц в шкаф.';
my $tr;

for ( 'ALA-LC RUS', 'ISO 9', 'DIN 1460 RUS', 'GOST 7.79 RUS', 'GOST 7.79 RUS OLD' ) {
    $tr = new Lingua::Translit( $_ );
    printf "%17s  %s\n", $_, $tr->translit( $sample );
}

Выводит:

       ALA-LC RUS  Ėĭ, zhlob! Gde tuz? Priach′ iunykh s″ëmshchits v shkaf.
            ISO 9  Èj, žlob! Gde tuz? Prâčʹ ûnyh sʺëmŝic v škaf.
     DIN 1460 RUS  Ėj, žlob! Gde tuz? Prjač' junych s"ëmščic v škaf.
    GOST 7.79 RUS  E`j, zhlob! Gde tuz? Pryach` yuny'x s``yomshhicz v shkaf.
GOST 7.79 RUS OLD  E`j, zhlob! Gde tuz? Pryach` yuny'x s``yomshhicz v shkaf.

Comments

Вот!

[shoorick.livejournal.com]

Да, меня это тоже несколько опечалило. В википедии видел описание кучи методов, один другого страшнее.