fb2-perl-tools

[nataraj]

Разобрался как XSD-валидировать XML'ки через перл... Оказывается достаточно просто:

use XML::LibXML;

my $file_name='krishnananda-02.utf8.xml';
my $parser = XML::LibXML->new();
my $xmlschema = XML::LibXML::Schema->new( location =>'SCHEMA2.1/FictionBook2.1.xsd');
my $doc = $parser->parse_file($file_name);
$xmlschema->validate($doc);

Только эта сволочь номера строк не выводит...
Установка $parser->line_numbers(1); -- не помогает...

Номера строк, как тоже по ходу выяснилось выводит
xmllint --noout --schema SCHEMA2.1/FictionBook2.1.xsd krishnananda-02.utf8.xml
Но только это уже нехрена не перл-решение.

В гугле про номера сток для XML::LibXML::Schema ничего не говорят.

Попытался залесть в исходники xmllint, и заблудился там...

В общем нету мне перлэксемельного счастья...

Comments

[vitus_wagner]

use Source::Luke!
В смысле ответ надо искать не в гугле, а в исходнике модуля.

[shaplov.livejournal.com]

В исходнике модуля никакого внятного ответа нет...
Он прямая обертка к libxml2, как минимум в случае XML::LibXML::Schema. А xmlschemas.c из него, который собственно валидацию осуществляет я не осилил... По оценкам, на то чтобы понять как он работает, мне с моей системой восприятия, потребуется не меньше недели, а скорее всего месяц. Уж больно непонятно он написан... Задача достаточно интересная, но увы на данном этапе имеющая весьма сомнительную практическую ценность...
Кроме того, есть подозрение, что когда я пойму, то потом его придется переписывать, ибо как я понял, он валидировать умеет ровно в одном режиме: Либо вернуть 1 если валиден, либо завершить работу вывалив в STDERR невбубенный список ошибок. Это совершенно не то, чего хотелось бы иметь в конечной программе...