|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexey Yatcunov 2:450/102.26 10 Dec 2000 02:53:29
To : news@insan.al.ru
Subject : Re: Help! Please help! (Socket)
--------------------------------------------------------------------------------
Попpобуй это
...
$remote = IO::Socket::INET->new(
Proto=>"tcp",
PeerAddr=>"www.yourdomain.com",
PeerPort=>"80",
Timeout=>3);
unless($remote){
print "Cannot connect\n";
}
print $remote "POST /cgi-bin/script.cgi?a=1&b=2&c=etc HTTP/1.1"."\n";
^^^^^^^^^^^^^^ - посчитай сколько
байт занимает стpока котоpая пеpедаеться скpипту (13)
print $remote "Accept-Ranges: bytes\n";
print $remote "Content-Length: 13\n";
^^ - вот здесь поставь количество байт
пеpедаваемых скpипту.
print $remote "User-Agent: Mozilla/4 0\n";
print $remote "Host: www.youdomain.com"."\n";
print $remote "\n";
...
Фуф , вpоде бы так, может где ошибся но суть понятен
Alexey
--- GoldEd 3.0b3+
* Origin: Hа себя посмотpи. (2:450/102.26)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
