Хелло, олл!!!

Собственно есть такой шедевр ;-))
[src]
$proto = getprotobyname('tcp') || die "No proto";
socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die "Create socket error";

$h = gethostbyname($host) || die "Get Host fail";
$iaddr = inet_aton($host);

$paddr = sockaddr_in($port, $iaddr) || die "SockAddr";
connect(SOCK, $paddr) || die "Die connecting"; #<--- Вот здесь падает
send (SOCK, "GET HTTP/1.0/n", 0) || die "Die Socket";

@data=<SOCK>;

close(SOCK);

print @data;
[src]

Кто подскажет как это заставить работать? ;-))

С перлом я так себе, пока, по крайней мере.
По идее оно должно забрать страничку с http сервера.

----

tnx

я

мдя, крутил его и так и сяк, пока никак.
я так понимаю мы ж в любом случае должны получать хотя б 400-ю

Может у кого-то всё таки есть скрипт получения perl`ом HTML`ной странички?
Если что - newamid[...ku-ku-...]yandex.ru
[...ku-ku-...] <=> @

PS. забыл совсем

оставаться, желательно, в пределах стандартных модулей.

PPS. падает - неправильно выразился. Просто не работает.

Это заработало.


Всем спасибо за сочуствие. ;-))
Никто не откликнулся в приват. :-(

----

С ув. Дмитрий.