- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #4025 [671]
От : Andrei Protasovitski 2:5020/400 09 июля 04, 18:13
Кому : All 14 июля 04, 22:51
Тема : XML::LibXML затыкается на parse_fh($fh)
-------------------------------------------------------------------------------
From: Andrei Protasovitski
Доброго здоровья!
Win98se, ASP5.8.0.806, XML::LibXML 1.58
Есть такой сэмпловый скрипт:
[-=cut=-]
#!/usr/bin/perl -w
use strict;
use XML::LibXML;
use IO::Handle;
my $parser = new XML::LibXML;
my $fh = new IO::Handle;
if ($fh->fdopen(fileno(STDIN), "r")) {
my $doc = $parser->parse_fh($fh);
my %dist;
&proc_node($doc->getDocumentElement, \%dist);
foreach my $item (sort keys %dist) {
print "$item: " . $dist{$item} . "\n";
}
$fh->close;
}
sub proc_node {
my($node, $dist) = @_;
return unless $node->nodeType eq &XML_ELEMENT_NODE;
$dist->{$node->nodeName}++;
foreach my $child ($node->getChildnodes) {
&proc_node($child, $dist);
}
}
[-=cut=-]
Затыкается на строке:
my $doc = $parser->parse_fh($fh);
При этом не выдается никаких сообщений об ошибке, никаких неотвечающих
процессов. Что это может быть?
(З.Ы. Пример из книги Джейсон Макинтош, Эрик Т.Рэй, "Perl & XML",
издательство "Питер",2003, стр. 68)
--
Andrei Protasovitski mailto:andrei()siliconmaterials.com
JS "KamSil" http://www.siliconmaterials.com/
137, Brestskaya str., ICQ: 75725244
225710, Pinsk, Belarus
--- ifmail v.2.15dev5.3
* Origin: Protasonic (r) Soft (2:5020/400)