http://www.perlmonks.org?node_id=288018


in reply to cblast35

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,
    );

[download]
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.

In Section Code Catacombs