Параметр проводки с прокси (perl)

Question

Я хочу отправить параметр (phd => text , go => submit) с http-прокси. Как я могу это сделать?

У меня есть этот код 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

Добавьте в инструкцию, чтобы пользовательский агент знал местоположение вашего прокси:

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

Что касается комментария о том, что POST является допустимым голым словом (которое я, вероятно, не заметил бы), мой модульесть что-то вроде этого:

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

Answer 2

перед тем, как вы вызовете метод 'request', вы должны добавить информацию прокси в ваш объект UA.Начните здесь: http://search.cpan.org/~gaas/libwww-perl-5.836/lib/LWP/UserAgent.pm#Proxy_attributes

И является ли 'POST' допустимым оператором пустого слова или пространством имен?Если нет, то сначала вы захотите узнать, как создать объект HTTP :: request.

Answer 3

Я написал это некоторое время назад, когда делал то же самое, что и вы - http://blog.gnucom.cc/?p=122 - проверьте это и дайте мне знать, если вы найдете это полезным (оно делает то же самое, что вы пытаетесь сделать ).

Я думаю, что основная проблема, с которой вы МОЖЕТЕ быть, заключается в том, что ваши POST-данные отправляются не на ту страницу. Когда вы отправляете данные POST, вам нужно отправить их куда-нибудь, например, example.com/target_form.php. Ваш пример не показывает, что вы делаете это - так что надеюсь, я не слишком много предполагаю. : D