Paramètre d'enregistrement avec proxy (perl)

Question

Je souhaite envoyer le paramètre (phd => text , go => submit) avec un proxy http. Comment puis-je faire ceci?

J'ai ce code Perl:

my $ua = LWP::UserAgent->new(); 
my $req = POST 'http://example.com', 
[ phd => 'text' , go => 'submit']; 
$content = $ua->request($req)->as_string; 
print $content; 

Answer 1

J'ai écrit ce il y a un moment quand je faisais la même chose que vous - http://blog.gnucom.cc/?p=122 - Regardez et laissez-moi savoir si vous trouvez utile (il ne la même chose que vous essayez de faire).

Je pense que le problème principal que vous pourriez avoir, c'est que vous êtes les données POST est envoyé à la mauvaise page. Lorsque vous envoyez des données POST, vous devez les envoyer quelque part, comme example.com/target_form.php. Votre exemple ne montre pas que vous faites cela - alors j'espère ne pas en supposer trop. : D

Answer 2

Avant d'appeler la méthode 'request', vous devez ajouter les informations de proxy à votre objet UA. Commencez ici: http://search.cpan.org/~gaas/libwww-perl-5.836/lib/LWP/UserAgent.pm#Proxy_attributes

Et POST est-il un opérateur bareword valide ou un espace de noms? Si ce n'est pas le cas, vous voudrez regarder comment créer un objet HTTP :: request en premier.

Answer 3

Ajouter dans une instruction afin que l'agent utilisateur connaît l'emplacement de votre proxy:

$ua->proxy("http", "http://localhost:8888"); 

Quant au commentaire de POST étant un bareword valide (que je ne serais probablement pas remarqué), mon module a quelque chose comme ça dedans:

use HTTP::Request::Common qw(POST GET);