Problem s TCP v perlu

[Borek Lupomesky]

   Hi all,

   Uz jsem se kdysi na tento problem ptal, ale dosud jsem ho nijak
nevyrsil. Mam program, ktery je primitivnim klientem sluzby finger:

$paddr = sockaddr_in(79, inet_aton("127.0.0.1"));
socket(S, PF_INET, SOCK_STREAM, getprotobyname("tcp"));
connect(S, $paddr);
print S "\n";
shutdown(S, 1);
while ($line = <S>) { print $line; }
close(S);
exit;

   Bohuzel, kdyz se tento program pokusim spustit, tak to nefunguje:

ishtar:~$ perl f.pl
Broken pipe

   Velice by me zajimalo, co je spatne. Mam perl 5.005_02 na RH 5.2.

   Bye Borek

--

=====================================================================
BOREK LUPOMESKY, network administrator    University of J. E. Purkyne
WWW:       http://www.ujep.cz/~lupomesk/  Ceske mladeze 8
IRCnet:    Borek @ #usti                  Usti nad Labem, 40096
talk:      borek na ishtar.ujep.cz           The Czech Republic
PGP keyid: 9DD1C54D   ICQ: 10139578       tel: +420-602-376368
==========[ MIME/ISO-8859-2 & PGP encrypted mail welcome ]===========