Sockety

[Martin Caslavsky]

>>use IO::Socket;
>>$sock = new IO::Socket::INET("LocalHost" => "localhost", LocalPort =>
5000,
>>Proto => "tcp", Listen => 5, Reuse => 1)
>> or die "Cant create socket: $!\n";
>>while ($new_sock = $sock->accept()) {
>> while(defined ($buf = <$new_sock>) and ($buf !~ /QUIT/)) {
>>  print $buf;
>> }
close $new_sock;
^^^^^^
>>}
>>close $sock;
>
>Nejsem moc honenej v programovani socketu, ale rekl bych, ze
>po napsani QUIT pouze skonci vnitni while smycka a server
>ceka na dalsi spojeni v accept, tedy k uzavreni socketu
>nedojde.

Je to tak, po pridani toho close to funguje jak chci. Tenhle priklad jsem
zjednodusoval z hodne slozitejsiho, takze doufam, ze bude fungovat i tam.

Martin Caslavsky