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

[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