shoorick

use File::Slurp
write_file 'big-structure.pl', Dumper $structure

write_file 'big.txt', {binmode => ':utf8'},  $unicode-data

#!/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.

sharifulin

Мне известен лишь один модуль, который склоняет имена — Lingua::RU::Sklon, но он мне не нравится:

0. Кодировка модуля — вражеская CP1251 вместо правильной UTF-8.
1. Идентификаторы образованы от сокр. рус. слов. VIN вместо ACCUSATIVE — неудобно.
2. За три года модуль так и не ушёл дальше версии 0.01

#!/usr/bin/perl -wl -CO

use utf8;
use Lingua::RU::Inflect ':all';

my @name = qw/Чайковский Пётр Ильич/;
my @inflected;
$, = ' ';

for ( NOMINATIVE .. PREPOSITIONAL ) {
    @inflected = inflect_given_name( $_, @name );
    push @inflected, shift @inflected;
    print @inflected;
}

$ ./test-tchaikovsky.pl
Пётр Ильич Чайковский
Петра Ильича Чайковского
Петру Ильичу Чайковскому
Петра Ильича Чайковского
Петром Ильичом Чайковским
Петре Ильиче Чайковском

Ближайшие планы:

0. Разобраться с кириллицей в документации (CPAN считает, что она написана в ISO8859-1, а не в UTF-8);
1. Написать README, а не оставлять то, что сгенерировано автоматически;
2. Сделать порт для FreeBSD.
3. Найти (или организовать) список рассылки / IRC-канал / Jabber-конференцию / форум / вписать желаемое для обсуждения багов;
4. Ускорить домашнюю связку trac+svn (где сейчас и живёт Lingua::RU::Inflect) либо перенести проект на какой-либо внешний более шустрый хостинг.

0. Научить модуль склонять любые существительные и прилагательные — в конце концов, имена и фамилии склоняются аналогично: уже сейчас inflect_given_name( DATIVE, qw/Синий чайник/ ) возвращает qw/Синему чайнику/.
1. Сделать блиц-доклад? :-)

Итак, дана строка кириллического текста в UTF-8. Пытаемся делать замены текста с целью транслитерировать. Оператор s/// работает правильно, а вот tr/// выдаёт фигню. Поэтому скрипт, где используются оба этих оператора, выдёт странный результат:

Чё
Chyo
Чушь
ChENshEY
Сало
aEaba'aV

  Левая панель     Файл     Команда     Настройки     Пр
┌<─~/tmp/ы-αβγ-đ─────────v>┐┌──────────────────────────┐
│    Имя    │Разме│Атрибуты││Файл: utf8.txt            │
│/..        │-ВВЕР│drwxr-xr││Это файл                  │
│ utf8.txt  │  169│-rw-r--r││в кодировке UTF-8         │
│           │     │        ││С разными буквами,        │
│           │     │        ││не только русскими:       │
├──────────────────────────┤│Grünölstraße, Αλεξανδροσ, │
│ utf8.txt  │  169│-rw-r--r││a²×b·c³≠d                 │
└──────────────────────────┘└──────────────────────────┘
<F3><CF><D7><C5><D4>: <E4><CC><D1> <CF><D4><CD><C5><D4><
[as@country ~/tmp/ы-αβγ-đ]$                          [^]
1Помощь 2Меню   3Просмот4Правка 5Копия  6Перемес7НвКтлог

гўупый мой ўасковый

current music

anyutka

mcilove

  п⌡п╣п╡п╟я▐ п©п╟п╫п╣п╩я▄     п╓п╟п╧п╩     п п╬п╪п╟п╫п╢п╟
┌<─/usr/home/as/tmp──────v>┐┌<─~/music/instrumental───v>┐
│   п≤п╪я▐  │п═п╟п│п░я┌я─п╦││  п≤п╪я▐  │п═п╟п│п▓я─п╣п╪я▐│
│ КОИ-8.txt │   23│-rw-r--r││/..       │п═п╔-│          │
│           │     │        ││ Мален~mp3│ 754K│▌п╩ 12 13:│
├──────────────────────────┤├───────────────────────────┤
│ КОИ-8.txt │   23│-rw-r--r││/..                        │
└──────────────────────────┘└───────────────────────────┘
Совет: Вы можете выбрать редактор для F4 с помощью переме
[as@country ~/music/instrumental]$                    [^]
1п÷п╬п╪п2п°п╣п╫я3п÷я─п╬я4п÷я─п╟п5п п╬п©п6п÷п╣я─п7п²п╡п я┌

  Левая панель     Файл     Команда     Настройки     Пр/
┌<─/usr/home/as/tmp──────v>┐┌<─...aertsky/1998 - Вымя─v>┐
│    Имя    │Разме│Атрибуты││    Имя   │Разме│Время прав│
│ xorg.conf │15406│-rw-rw-r││*01 - ~mp3│4439K│н  9  2000│
│ КОИ-8.txt │   23│-rw-r--r││*02 - ~mp3│4595K│н  9  2000│
├──────────────────────────┤├───────────────────────────┤
│ КОИ-8.txt │   23│-rw-r--r││*01 - Восьмое Марта.mp3    │
└──────────────────────────┘└───────────────────────────┘
Совет: Используйте C-x t для копирования помеченных файло
[as@country /usr/home/as/music/d/Laertsky/1998 -      [^]
1Помощь 2Меню   3Просмот4Правка 5Копия  6Перемес7НвКтлог