|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitry M. Gavrin 2:5020/2186 12 Jun 2003 23:43:30
To : ‚ᥬ
Subject : www.livejournal.com
--------------------------------------------------------------------------------
Hаткнулся на довольно странный глюк. Код приведённый ниже работает, как и
задумано, с любым http сервером, кроме www.livejournal.com, где просто
отваливается и всё, ничего не насасывая в $a. Причем, если я посылаю тот же http
запрос телнетом, livejournal всё прекрасно отдает. Покажите, как надо, или
расскажите, где почитать про то, как надо.
_________________________ lj _____________________________
#! /usr/bin/perl
use IO::Socket;
$remote_host = "www.livejournal.com";
$remote_port = "80";
$req = "GET / HTTP/1.0\n\n";
$socket = IO::Socket::INET->new(PeerAddr => $remote_host,
PeerPort => $remote_port,
Proto => "tcp",
Type => SOCK_STREAM)
or die "Can\'t open socket: $@\n";
print $socket $req;
while (<$socket>){
$a .= $_;
}
close($socket);
print $a."\n";
_________________________ lj _____________________________
// Спорт вреден!
// xmms: Chimera -ZUDWA- Hord
--- Debian Linux (2.4.18-k7) uptime: 1 сутки 21 час 19 минут.
* Origin: // http://gmarapet.msk.ru // RLU #299701 // (2:5020/2186)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
