Problem s TCP v perlu

[Milan Sorm]

Mon, Mar 08, 1999 ve 12:39:35PM +0100 David Rohleder napsal:
| 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;
| > 

zkuste napsat tutez vec s vyuzitim IO::Socket::INET. Posledne jsem si s
touto veci napsal dvojici userlookupd/userlookup, ktera delala totez co
nslookup, jenze pres uzivatele stroje a ne pres stroje domeny. A slo to
(server i klient).

jinak tenhle priklad me taky nejede (a kdyz jsem ho konzultoval s velbloudi
knihou str. 375 (CZ), tak je to identicke az na to, ze tady se pise i cte.

takze jinak nevim - zkusil bych to pres IO::Socket..

milan

-------------------------------------------------------------
Milan Šorm  (aka John Popelník)      telefon: +420 5 41512348
B205, FI MU, Botanická 68a, Brno     sorm na informatics.muni.cz
http://www.fi.muni.cz/~sorm/         tel. domů: (05) 46211083
-------------------------------------------------------------
"U vás na Moravě prý lidi chytáte a zavíráte pod zem ?" 
          "Tož ja, na jižní do sklípků a na severní do dolů."