|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Michael Spector 2:5020/400 13 Jun 2003 02:18:13
To : Dmitry M. Gavrin
Subject : www.livejournal.com
--------------------------------------------------------------------------------
Thu Jun 12 2003 23:43, Dmitry M. Gavrin wrote to Всем:
DMG> // Как же вошь, Всем?
DMG> Hаткнулся на довольно странный глюк. Код приведённый ниже работает, как
DMG> и задумано, с любым http сервером, кроме www.livejournal.com, где просто
DMG> отваливается и всё, ничего не насасывая в $a. Причем, если я посылаю тот
DMG> же http запрос телнетом, livejournal всё прекрасно отдает. Покажите, как
DMG> надо, или расскажите, где почитать про то, как надо.
DMG> _________________________ lj _____________________________
DMG> #! /usr/bin/perl
DMG> use IO::Socket;
DMG> $remote_host = "www.livejournal.com";
DMG> $remote_port = "80";
DMG> $req = "GET / HTTP/1.0\n\n";
Попробуй так: $req = "GET / HTTP/1.0\r\n\r\n";
DMG> $socket = IO::Socket::INET->new(PeerAddr => $remote_host,
DMG> PeerPort => $remote_port,
DMG> Proto => "tcp",
DMG> Type => SOCK_STREAM)
DMG> or die "Can\'t open socket: $@\n";
DMG> print $socket $req;
DMG> while (<$socket>){
DMG> $a .= $_;
DMG> }
DMG> close($socket);
DMG> print $a."\n";
DMG> _________________________ lj _____________________________
DMG> // Спорт вреден!
DMG> // xmms: Chimera -ZUDWA- Hord
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
www.livejournal.com 