Forum Webscript.Ru

Программирование => Perl => Тема начата: a1eX28 от 11 Мая 2008, 13:24:27

Название: Заставить perl скрипт работать через проксю
Отправлено: a1eX28 от 11 Мая 2008, 13:24:27

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

Название: Заставить perl скрипт работать через проксю
Отправлено: demond от 11 Мая 2008, 14:08:26

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

Название: Заставить perl скрипт работать через проксю
Отправлено: a1eX28 от 11 Мая 2008, 14:09:45

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

Название: Заставить perl скрипт работать через проксю
Отправлено: demond от 12 Мая 2008, 00:24:06

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

Название: Заставить perl скрипт работать через проксю
Отправлено: Green Kakadu от 13 Мая 2008, 00:51:14

Код: [Выделить]


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