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'],
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.|