Bonjour,
Je veux tester ce code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#!/usr/bin/perl 
use strict; 
use Encode; 
use LWP::Simple; 
use XML::RSS; 
use HTML::Parser;
#script to : downlaod and store HTML files from the irish independent RSS feed.
 
my @RSS_URLs = ("http://rss.independent.ie/c/32444/f/474631/index.rss"); 
 #binmode (STDOUT); 
 
binmode (STDOUT, ":encoding(utf8)"); 
 
for my $url (@RSS_URLs) { 
    my $document = LWP::Simple::get($url) or die "cannot get content from $url"; 
    my $rss = XML::RSS->new; 
 
        $rss->parse($document);
        #$i=1;
 
    for (@{$rss->{items}}) { 
        my $results=$_->{guid};
        my $title = $_->{title};
 
        my $rss_htmls=(`wget $results`);
        #my $rss_htmls=(`wget -o \"".$title."\".html`.$results);
 
        #$rss_htmls = system("wget -o \"".$")
        print $rss_htmls;
        }
}
j'ai créé un fichier test.pl contenant le code ci-dessus puis j'ai exécuté avec:
perl -w test.pl
voilà ce que me rend l'exécution:
Can't locate XML/RSS.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.1 /usr/local/share/perl/5.10.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at rss.pl line 5.
BEGIN failed--compilation aborted at rss.pl line 5.
Je n'ai pas compris le problème puisque je suis débutante en perl.
Pouvez-vous m'aider?