Perl and Network

[Гость]

Попробывал написать программу на Perl для работы с сетью, но ничего не получилось ((

Я взял пример из lamabook(стр 300):

#!/usr/bin/perl -w

use IO::Socket;

$remote = IO::Socket::INET->new(

Proto => "tcp",

PeerAddr => "piper.kspu.kr.ua",

PeerPort => "daytime(13)",

)

or die "Cannot connect to the daytime port ";

while (<$remote>)

{

print ;

}

запускаю, а он говорит что Cannot connect to the daytime port at ./perl.pl line 3.

Что делать и где искать?

[Гость]

И для localhost тоже не работает ((

[Гость]

все зависит от того доступен ли этот сервис на данном компе(piper.kspu.kr.ua). попробуй установи у себя inetd(xinetd) и запусти там службу daytime. Или как вариант поставь

PeerPort => "80" - это HTTP а вместо адреса какой нить сайт, и он тебе должен выдать первую странийу сайта,вот и все!

[Гость]

проверить - есть ли у Вас служба daytime)))