Автор Тема: Заставить perl скрипт работать через проксю  (Прочитано 5090 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн a1eX28

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 2
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Всем привет!
Такая проблема: вообщем есть perl скрипт, который запускается на компе, скрипт выполняет кое-какую работу на одном сайте.
Подскажите как можно заставить его выходить через проксю, а не используя мой айпи?
« Последнее редактирование: 12 Мая 2008, 11:56:21 от a1eX28 »

Оффлайн demond

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 24
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Я думаю проще всего: LWP::UserAgent->proxy(...). :-)

Оффлайн a1eX28

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 2
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Наверное..
Только куда это вписывать?)) Я прост плохо во всем этом разбираюсь))

Оффлайн demond

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

Оффлайн Green Kakadu

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 2757
  • +1/-0
  • 0
    • Просмотр профиля
    • http://gnezdo.webscript.ru

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
 в исканиях.

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28