Форум Flasher.ru

Форум Flasher.ru (http://www.flasher.ru/forum/index.php)
-   Perl (http://www.flasher.ru/forum/forumdisplay.php?f=21)
-   -   getURL.. сокеты.. proxy.. need help :((( (http://www.flasher.ru/forum/showthread.php?t=57906)

WD` 08.05.2004 03:32

getURL.. сокеты.. proxy.. need help :(((
 
помогите пжалста :)

тут были примеры SPV по работе с сокетами нашел в хелпе и LPW или LWP.. как его там величать..

задача в следующем:
надо взять из инета страничку.. но не выходит, т.к. работаю через прокси. подскажите как осуществить это ? :)

когда работал через модем все ок было.. а вот как указать прокси?

adelante 15.05.2004 02:50

Прокси
 
===============
myXML = new XML();
myXML.load("http://www.localserver.com/proxy.cfm?location=http://www.remoteserver.com/somedoc.xml");
и т.д

Crazy 15.05.2004 10:09

А теперь -- правильный ответ:

Код:

my $ua = LWP::UserAgent->new;
$ua->proxy(...


WD` 17.05.2004 12:33

2 adelante:
10x, попробую..

2 Crazy:
big 10x :)


-----
кому не хватит гениального ответа Крэйзи.. тут полный :D
#!/usr/bin/perl

use LWP::UserAgent;

print "Content-type: text/html\n\n";
require LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->proxy(['http', 'ftp'], 'http://192.0.1.2:8080');
$req = new HTTP::Request('GET' => 'http://www.google.com');
$res = $ua->request($req);
$content = $res->content;
$res = $ua->request($req);
if($res->is_success) # успешно выполненный запрос
{
print $content;
}


Часовой пояс GMT +4, время: 18:00.

Copyright © 1999-2008 Flasher.ru. All rights reserved.
Работает на vBulletin®. Copyright ©2000 - 2026, Jelsoft Enterprises Ltd. Перевод: zCarot
Администрация сайта не несёт ответственности за любую предоставленную посетителями информацию. Подробнее см. Правила.