perl LWP::UserAgent, HTTP::Request::Common: задать ip вручную

0

0

простой запрос:

my $res = $ua->request ( POST "http://somehost.net/path", [%$params], );

вопрос в том, как мне сделать так чтобы он не получать ip хоста через dns, а чтобы задать ip сервера вручную? url должен быть http://somehost.net, или какой-то ещё, но не ip адрес.. и вариант указывать в hosts тоже не подходит, надо как-то средствами perl

Ссылка

←	Посоветуйте где купить доменные имена

А посоветуйте CMS'ку.

→

Каждый раз, когда задача хоть немного отличалась от «сдернуть страничку как браузером», например работа с кукисами (есть хитрые сайты, которые ставят одинаковые кукисы раз 5 за сессию, а нужно выдрать только 1), или скажем отправка произвольного host как у тебя, то всегда проще было руками открыть сокет и пихнуть туда свой запрос. Просто, быстро, легко.

Можно конечно что-то вроде:

require HTTP::Headers;
$h = HTTP::Headers->new;

$h->header('Host' => 'mycoolhost.ru');

но это тебе решать.

~~simple_best_world_web_master~~
(05.09.10 19:48:46 MSD)

Надо отправить запрос на IP, чтобы не резолвить доменное имя, я правильно понял вопрос?

#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request::Common;

$ip = '127.0.0.1';

$ua = LWP::UserAgent->new;
$response = $ua->request(GET "http://$ip/");

hunt
(05.09.10 20:03:49 MSD)