Problem s TCP v perlu

[David Rohleder]

Borek Lupomesky <borek na ishtar.ujep.cz> writes:

>    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.

Co tak nastavit na S nebufferovany vystup. Nemyslim si, ze trubka je
radkove bufferovana. Nebo flushnout S pred shutdown.

> 
>    Bye Borek

-------------------------------------------------------------------------
David Rohleder						davro na ics.muni.cz
Institute of Computer Science, Masaryk University
Brno, Czech Republic
-------------------------------------------------------------------------