IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Perl Discussion :

test d'un code perl


Sujet :

Langage Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé Avatar de nounouuuuu201186
    Femme Profil pro
    Stagiaire
    Inscrit en
    Juillet 2011
    Messages
    169
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Stagiaire
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Juillet 2011
    Messages : 169
    Par défaut test d'un code perl
    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?

  2. #2
    Membre chevronné Avatar de Beniou
    Homme Profil pro
    Inscrit en
    Novembre 2009
    Messages
    357
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : Novembre 2009
    Messages : 357
    Par défaut
    Bonjour,

    Ce message d'erreur indique que le module XML::RSS n'est pas installé.

    Pour installer un module, il y a plusieurs manières de faire suivant ton OS (via l'utilitaire cpan, ppm ou même manuellement si tu n'as pas les droits admin). Voici un tuto qui fait regroupe ces différentes techniques

    Si tu es sous Linux (ce qui semble être ton cas) et que tu disposes des droits adéquats je te conseille d'utiliser l'utilitaire cpan :
    Ex :
    >cpan

    Terminal does not support AddHistory.

    cpan shell -- CPAN exploration and modules installation (v1.9402)
    Enter 'h' for help.

    cpan[1]>install XML::RSS

Discussions similaires

  1. explication sur un code perl
    Par Melvine dans le forum Langage
    Réponses: 5
    Dernier message: 05/10/2006, 16h32
  2. pb code perl
    Par visteur dans le forum Langage
    Réponses: 3
    Dernier message: 06/03/2006, 09h43
  3. Réponses: 1
    Dernier message: 29/11/2005, 22h05
  4. [langage] code Perl
    Par GMI3 dans le forum Langage
    Réponses: 3
    Dernier message: 18/03/2004, 11h26

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo