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

Web Perl Discussion :

LWP::Simple && IO::Socket


Sujet :

Web Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Janvier 2009
    Messages
    71
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2009
    Messages : 71
    Par défaut LWP::Simple && IO::Socket
    Bonjour,

    Dans Un Bot utilisé sur Irc ( en socket), je souhaite telecharger une page html d un site.

    pour ce faire, j essaie via LWP de download ma page, mais il me ressort une erreur

    Undefined subroutine &modules::Securite::get called at modules/Securite.pm line 119, <GEN0> line 76.

    tandis que si je prend les éléments séparés, ils fonctionnent.

    y a t il une incompatibilité entre LWP et IO socket ??

    ou alors l erreur vient t elle d autre chose ??

    cordialement

    ours_en_pluche

  2. #2
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Sans ton code, difficile de t'aider

  3. #3
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Janvier 2009
    Messages
    71
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2009
    Messages : 71
    Par défaut re
    voila la partie du code source utile.

    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
    #!/usr/bin/perl
     
    use IO::Socket;
    use strict;
    use warnings;
    use LWP::Simple;
     
    my @site1 = (
    	("lien1") ,
    	("lien2")
    );
     
    sub socks {
    	my ($line) = @_;
    #type "PING :irc.perdu.com"
    	if ( $line =~ /^PING\s:.*$/) {
    		foreach my $site2 (@site1) {
    			my $site3 = get($site2);
    		}
    	}
    }
    cordialement

    ours_en_pluche

  4. #4
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Merci d'utiliser les balises code la prochaine fois

Discussions similaires

  1. getopts et LWP::Simple
    Par Darktroll dans le forum Langage
    Réponses: 1
    Dernier message: 23/10/2009, 19h12
  2. module LWP::Simple et expressions régulières
    Par Jasmine80 dans le forum Bioinformatique
    Réponses: 4
    Dernier message: 06/03/2007, 16h11
  3. LWP::Simple
    Par vince26 dans le forum Modules
    Réponses: 7
    Dernier message: 31/08/2005, 17h39

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