Не пойму, почему XML::LibXML ничего не парсит?[host]$ cat test.pl
#!/usr/bin/perl -w
use strict;
use XML::LibXML;
use Data::Dumper;
my $xml =qq(
<a>
<b>bb</b>
<cc>
<d>ddd</d>
<e>eee</e>
</cc>
</a>
);
print $xml;
my $parser = XML::LibXML->new();
my $doc = $parser->parse_string( $xml );
my $root = $doc->getDocumentElement();
my @a = $root->getElementsByTagName( 'a' );
print "parcer: \n" . Dumper $parser;
print "doc: \n" . Dumper $doc;
print "root: \n" . Dumper $root;
print "a: \n" . Dumper @a;
Непосредственно сам вывод скрипта
[host]$ ./test.pl
<a>
<b>bb</b>
<cc>
<d>ddd</d>
<e>eee</e>
</cc>
</a>
parcer:
$VAR1 = bless( {
'XML_LIBXML_CALLBACK_STACK' => bless( {
'_CALLBACKS' => []
}, 'XML::LibXML::InputCallback' ),
'XML_LIBXML_KEEP_BLANKS' => 1,
'XML_LIBXML_EXT_DTD' => 1,
'_State_' => 0
}, 'XML::LibXML' );
doc:
$VAR1 = bless( do{\(my $o = 135846048)}, 'XML::LibXML::Document' );
root:
$VAR1 = bless( do{\(my $o = 135840048)}, 'XML::LibXML::Element' );
a:
Вариант для распечатки
Программирование под UNIX (Public)
(ok) on 29-Мрт-07, 09:54 
