Sometimes perlmonks serves up bogus xml ( and XML::Parser chokes on it), so you may wanna use HTML::Parser instead.
Instead of creating a XML::Parser object in sub fetch_cb_xml, simply construct a HTML::Parser object like so:
my $xml_parser = HTML::Parser->new(
api_version => 3,
unbroken_text => 1,
start_h => [ \&_xml_start, 'self,tagname,@attr'],
end_h => [ \&_xml_end, 'self,tagname'],
text_h => [ \&_xml_char, 'self,text'],
xml_mode=> 1,
);
and of course substitute
use XML::Parser; with
use HTML::Parser; and you're ready to go.
MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!" |
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README). |
** The third rule of perl club is a statement of fact: pod is sexy. |