S'enregistrer | Rechercher | FAQ | Liste des Membres | Groupes d'utilisateurs | Connexion

  Nom d'utilisateur:    Mot de passe:       

  

Poster un nouveau sujet   Répondre au sujet Page 1 sur 1
Voir le sujet précédent :: Voir le sujet suivant  
Auteur Message
MessagePosté le: Lun Juin 16, 2008 1:10 pm    Sujet du message: Utilisation de LWP Répondre en citant

TorTukiTu
Site Admin


 
Inscrit le: 07 Fév 2008
Messages: 1960
Localisation: Devant son pc durant la redaction de ce message



Salut les gens =)
Je fais mes premiers pas en perl Very Happy. J'essaye d'écrire un bout de code qui me connecterait en http via un proxy et en utilisant un fichiers de cookies. Après m'être renseigné a droite à gauche, voici ce que j'ai fait: (que les pros de perl ne m'en veuille pas si je fais des fautes immondes, je débute ) Embarassed :

Code:

#!/usr/bin/perl -w
use LWP::UserAgent;
use HTTP::Cookies;
die "Example: perl $0  http://www.google.com/\n" unless @ARGV;
system("color f");
$browser = LWP::UserAgent->new() or die "Could not initialize browser\n";
#On se connecte a notre proxy
$browser->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)');
$browser->proxy('http', '58.30.16.154:80');
#A present on s'occupe de nos cookies
$browser->cookie_jar( HTTP::Cookies->new(file => "cookies.txt"));
#Puis on envoie la requete
$host = $ARGV[0] . "sous_rep1/sous_rep2/";
$res = $browser->request(HTTP::Request->new(GET=>$host));
$answer = $res->content;


Mais a l'exécution c'est le drame...

Use of uninitialized value $scheme in hash element at C:/Users/****/Deskto
p/Icones/ActivePerl-5.10.0.1001-MSWin32-x86-283495/perl/lib/LWP/Protocol.pm line
55.
Use of uninitialized value $scheme in pattern match (m//) at C:/Users/****
/Desktop/Icones/ActivePerl-5.10.0.1001-MSWin32-x86-283495/perl/lib/LWP/Protocol.
pm line 58.
Use of uninitialized value $scheme in concatenation (.) or string at C:/Users/****/Desktop/Icones/ActivePerl-5.10.0.1001-MSWin32-x86-283495/perl/lib/LWP/P
rotocol.pm line 38.
Use of uninitialized value $scheme in string eq at C:/Users/****/Desktop/I
cones/ActivePerl-5.10.0.1001-MSWin32-x86-283495/perl/lib/LWP/UserAgent.pm line 1
95.

Je suppose que LWP n'est pas foireux mais que c'est moi qui ait fit n'importe quoi. J'ai cherché sur google pour essayer de comprendre mon erreur mais je n'ai pas trouvé. J'espere que la (les) fautes que j'ai commises ne sont pas trop stupides Embarassed . Enfin si un pro du perl pouvait rapidement passer dire ce qui cloche ce serait cool Very Happy merci
Voir le profil de l'utilisateur Envoyer un message privés Visiter le site web de l'utilisateur Compte AIM MSN Messenger Numéro ICQ
MessagePosté le: Jeu Juin 19, 2008 8:11 pm    Sujet du message: Répondre en citant

TorTukiTu
Site Admin


 
Inscrit le: 07 Fév 2008
Messages: 1960
Localisation: Devant son pc durant la redaction de ce message



A personne qui pourrait me donner un coup de main? Crying or Very sad
Voir le profil de l'utilisateur Envoyer un message privés Visiter le site web de l'utilisateur Compte AIM MSN Messenger Numéro ICQ
MessagePosté le: Ven Juin 20, 2008 4:09 pm    Sujet du message: Répondre en citant

TorTukiTu
Site Admin


 
Inscrit le: 07 Fév 2008
Messages: 1960
Localisation: Devant son pc durant la redaction de ce message



Erreur trouvée ! C'était un -w oublié apreès le perl comme vous pouvez le constater Embarassed
Sujet clos =)
Voir le profil de l'utilisateur Envoyer un message privés Visiter le site web de l'utilisateur Compte AIM MSN Messenger Numéro ICQ
Poster un nouveau sujet   Répondre au sujet Page 1 sur 1

  


 
Sauter vers:  
Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum



113976 Attacks blocked