Un problème dans la programmation socket en Perl

Question

je vous écris ce code:

#!/usr/local/bin/perl 
use strict; 
use LWP::UserAgent; 

my $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5'); 
$ua->proxy([qw(http https)] => 'http://203.185.28.228:1080' #that is just socks:port); 
my $response = $ua->get("http://www.google.com"); 
print $response->code,' ', $response->message,"\n"; 

mais quand je l'exécute que je reçois cette erreur: 500 Impossible de se connecter à 203.185.28.228:1080 (connexion: délai d'attente)

Que vais-je faire?

Answer 1

J'ai testé votre script, son bien, mais je suis la seule erreur est avec

$ua->proxy([qw(http https)] => 'http://203.185.28.228:1080' #that is just socks:port); 

Les commentaires doivent être hors de «() » à savoir

$ua->proxy([qw(http https)] => 'http://203.185.28.228:1080'); #that is just socks:port 

Aussi, s'il vous plaît vérifier votre connectivité internet. Voici la sortie que j'ai obtenue de votre script.

200 Assumed OK