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


in reply to Atom Feed for Chatterbox 60

Thanks tobyink. I had to make a slight change for behind a proxy server:

my $ua = LWP::UserAgent->new;
$ua->env_proxy;

my $list = HTML::HTML5::Parser
    -> new
    -> parse_file('http://mini-cb60.datenzoo.de/', { ignore_http_respo
+nse_code => 1, user_agent => $ua })
    -> getElementsByTagName('dl')
    -> get_node(1);

[download]

Also, HTML::HTML5::Parser failed its tests for me. When I looked at the test results I saw other people/smokers had hit this too so I reported it at 07ua.t fails.

In Section Cool Uses for Perl