shoorick

Key features:
...
Few dependencies - Dancer depends on as few CPAN modules as possible making it easy to install.

• Документация на cpan.org показывается в правильной кодировке. Правда, всё равно pod2html ругается, что не знает слова =encoding, а в man-страницах кириллица пропадает вовсе.
• Добавлена документация на русском языке.
• Добавлена функция choose_prepositions_by_next_word для выбора предлога с беглой гласной по следующему за ним словом, а также куча коротких имён для вызова этой функции с разными предлогами: izo, ob, so и т. п.
• Добавлены новые тесты. Выявленные при добавлении баги пофиксены.

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. Сделать блиц-доклад? :-)

root
:  + first
:  :  + one
:  + second
+ three

#!/usr/bin/perl -w

use GraphViz::XML;
use File::Slurp;

my $data = read_file shift @ARGV;
my $graph = GraphViz::XML->new($data);
print $graph->as_png;

Послушав мнение коллег, решил что для преобразований XML → (X)HTML лучше всего подойдёт XSLT. Но чем преобразовывать? Первый попавшийся учебник рассказывал об интерфейсах на разных языках, но перла среди них на было.

Однако, перловый программер про CPAN вспоминает быстро. Недолго думая, нашёл XML::XSLT, в мане на который есть пример, подлежащий весьма небольшой обработке напильником надфилем до работоспособного состояния:

#!/usr/bin/perl -w

use strict;
use XML::XSLT;

die qq{XML Transformer\nUsage:\n\t$0 xml-file xslt-file\n}
    if ($#ARGV < 1);

my $xslt = XML::XSLT->new($ARGV[1], warnings => 1);

$xslt->transform($ARGV[0]);
print $xslt->toString;

$xslt->dispose();

upd/18:15: ковыряние показало непрограммерский путь:

$ xsltproc xslt-file xml-file