privet
kto znaet ka sdelat vid chto iy obrashaus k scriptu iz formi, a ne iz scripta.

vot forma, kotoraya rabotaet

<form method=POST action=http://www.ripn.net:80/nic/whois/en/whois.cgi>
<input type=hidden name=Whois value=test.ru >
<input type=submit>
</form>

#####################
a vot script, kotoriy delaet vid chto on forma, no ne do konza(((

use constant RIPN_WHOIS => 'http://www.ripn.net:80/nic/whois/en/whois.cgi
use constant RIPN_REF => 'http://www.ripn.net/nic/whois/en/';

my $agent = LWP::UserAgent->new;
my $request = POST ( RIPN_WHOIS,
                    Content => [ Whois => 'test.ru' ],
                    Referer => RIPN_REF
);

print $resp->content;

vse taki udalenniy script ee kat to otslegivaet i daet otvet cheres ras

spasiba

хм...

Код

use IO::Socket; use FileHandle; $n = "\xd0\xa0"; $query = 'Whois=test%2Eru'; $query_len = length ($query); $remote = IO::Socket::INET->new ( Proto => 'tcp', PeerAddr => 'www.ripn.net', PeerPort => '80' ) || die ("Cannot connect to server: $!\n"); $remote->autoflush(1); print ($remote "POST /nic/whois/en/whois.cgi HTTP/1.0${n}Content-Type: application/x-www-form-urlencoded${n}Content-Length: $query_len${n}User-Agent: Samopalka/v1.0$n${n}$query"); while (<$remote>) { print; } close ($remote);

Так сработает, интересно?

Другой вариант сделать тоже самое при помощи LWP.
Что-то вроде этого:

Код

use LWP; use HTTP::Request::Common; $ua = LWP::UserAgent->new; $ua->request(POST, 'http://somewhere.com', [first=>1, second=>2]); ...

В общем про это очень подробно написано в pdf'ке ссылка на которую лежит в одной из тем в форуме.