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