ehretf has asked for the wisdom of the Perl Monks concerning the following question:
NOTE: I tried to use XML::RSS as it seems to have more option that may be handy in my case but it failed to install unfortunatly :(Here is my script: #!/usr/bin/perl -w use strict; use XML::RSSLite; use LWP::UserAgent; use HTTP::Headers; use utf8; my $ua = LWP::UserAgent->new; $ua->timeout(10); $ua->env_proxy; my $URL = "http://www.boursier.com/syndication/rss/news/FR0004031839/F +R"; my $response = $ua->get($URL); if ($response->is_success) { my $content = $response->decoded_content((charset => 'UTF-8')); my %result; parseRSS(\%result, \$content); foreach my $item (@{ $result{items} }) { print "ITEM: $item->{title}\n"; } }
|
|---|