8 binmode(STDOUT
, ":encoding(utf8)");
10 #print get('http://localhost/');
12 my $xml = new XML
::Simple
(ForceArray
=> 1);
13 my $data = $xml->XMLin(get
('http://blog.harvie.cz/rss/'));
14 #print Dumper($data); #debug
15 foreach( @
{$data->{channel
}[0]->{item
}} ) { print("$_->{title}[0]\n\t$_->{link}[0]\n"); }
This page took 0.24892 seconds and 4 git commands to generate.