socket timeout

[Martin Povolny]

On Wed, 27 Feb 2002 05:20:23 CET, Petr Klimovic <pizi na jinak.cz> wrote:
> Hello everybody.
> 
> Hraju si se socketama.
> 
> Muze mi tu nekdo naznacit jak udelam spojeni na nejaky TCP port, ktere 
> ma nastavitelny timeout? Ja nevim jestli na druhe strane nekdo 
> posloucha a chci to, pokud se treba do 5 vterin nezove, vzdat.
> 
> Petr
> 
> ... Cokoli je dobre a uzitecne je-li to vyrobeno z cokolady.

Tomu nerozumim, jestlize nikno neposloucha, tak nenavazu spojeni ne ?

Nejak takhle:

   my $sock = new IO::Socket::INET(
                        PeerAddr => $server, PeerPort => $port, Proto =>
                        'tcp'));

   die("Nelze se připojit k serveru na $server:$port ".
       "kvuli chybe:\n$!\nPravděpodobně není spuštěný server.\n")
       unless defined $sock;


-- 
Martin Povolný