Программирование > Perl

Заставить perl скрипт работать через проксю

(1/1)

a1eX28:
Всем привет!
Такая проблема: вообщем есть perl скрипт, который запускается на компе, скрипт выполняет кое-какую работу на одном сайте.
Подскажите как можно заставить его выходить через проксю, а не используя мой айпи?

demond:
Я думаю проще всего: LWP::UserAgent->proxy(...). :-)

a1eX28:
Наверное..
Только куда это вписывать?)) Я прост плохо во всем этом разбираюсь))

demond:
в документации ActivePerl в разделе LWP/UserAgent можно найти описание и куда, и что именно надо вписать(Я так понимаю это все будет работать под Windows :-)). Врядли за тебя кто-то будет переписывать скрипт.
И еще, я бы написал my $gruplist = \'c:\\\\list.txt\'. Просто так будет правильнее, раз это windows. :-)

Green Kakadu:

--- Код: ---
use LWP::UserAgent;

my  $ua = LWP::UserAgent->new;
$ua->proxy(http  => \'http://proxy.myorg.com\');
my $req = HTTP::Request->new(GET => \'http://xxx.com/\');
print $ua->request($req)->as_string;

--- Конец кода ---

http://search.cpan.org/~gaas/libwww-perl-5.812/lwpcook.pod

Навигация

[0] Главная страница сообщений