Исходное сообщение
"Не получается отпарсить данные с помощью XML::LibXML" Отправлено jr, 29-Мрт-07 09:54
Не пойму, почему 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: