Bonjour,
Je vous écris car j'ai un petit souci avec LWP. Je débute en perl et j'ai décidé d'écrire un script me connectant à une page web (qui m'identifie grâce a mes cookies) via un proxy. Voici le code que j'ai écrit (pardonnez moi pour les choses redondantes et / ou fausses plz je débute ^^):
Mais lorsque j'exécute le script, je me connecte simplement sans passer par aucun proxy
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 use LWP::UserAgent; use HTTP::Cookies; die "Example: perl $0 http://site.com/miss/32/index.php?user=&submitbutton=submit++++++++++++%28remaining+time+before+next+jump%3A+29+seconds%29 \n" unless @ARGV; system("color f"); $browser = new LWP::UserAgent(cookie_jar=> { file => "C:\Users\****\AppData\Roaming\Mozilla\Firefox\Profiles\qdlic5cc.default\cookies.txt" }); $browser->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)'); $browser->env_proxy => 1; $ENV{HTTP_PROXY} = 'http://121.9.205.131:80'; $browser->proxy(['http:']=> "121.9.205.131:80"); $host = $ARGV[0]; $res = $browser->get($host, Cookie => "name=******"); $answer = $res->content; print $answer;quelqu'un saurai-t-il pourqoui? Si oui pourraît il m'expliquer rapidement comment corriger mon script? Merci d'avance
![]()
Partager