Utilisation de LWP

Moderator: Mod

Utilisation de LWP

Postby TorTukiTu » Mon Jun 16, 2008 1:10 pm

Salut les gens =)
Je fais mes premiers pas en perl :D. 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 ) :oops: :

[code:1:4cde13a73e]
#!/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;
[/code:1:4cde13a73e]

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 :oops: . Enfin si un pro du perl pouvait rapidement passer dire ce qui cloche ce serait cool :D merci
User avatar
TorTukiTu
Site Admin
 
Posts: 1960
Joined: Thu Feb 07, 2008 10:24 pm
Location: Devant son pc durant la redaction de ce message

Postby TorTukiTu » Thu Jun 19, 2008 8:11 pm

A personne qui pourrait me donner un coup de main? :cry:
User avatar
TorTukiTu
Site Admin
 
Posts: 1960
Joined: Thu Feb 07, 2008 10:24 pm
Location: Devant son pc durant la redaction de ce message

Postby TorTukiTu » Fri Jun 20, 2008 4:09 pm

Erreur trouvée ! C'était un -w oublié apreès le perl comme vous pouvez le constater :oops:
Sujet clos =)
User avatar
TorTukiTu
Site Admin
 
Posts: 1960
Joined: Thu Feb 07, 2008 10:24 pm
Location: Devant son pc durant la redaction de ce message


Return to Perl

Who is online

Users browsing this forum: No registered users and 2 guests

cron