socket timeout

[Roman Fordinal]

Wednesday, February 27, 2002, 6:35:49 AM, you wrote:

PK> Hello everybody.

PK> Hraju si se socketama.

PK> Muze mi tu nekdo naznacit jak udelam spojeni na nejaky TCP port, ktere 
PK> ma nastavitelny timeout? Ja nevim jestli na druhe strane nekdo 
PK> posloucha a chci to, pokud se treba do 5 vterin nezove, vzdat.

PK> Petr

PK> .. Cokoli je dobre a uzitecne je-li to vyrobeno z cokolady.
thaaaaa! :)
s tymto som sa hral kedysi :)))

na ukazku moja jedna stara procedura ktora jednoducho nacitala
riadok zo socketu pokial nevyprsal timeout :)

sub R_line
{
 my $self=shift;
 my $sock=$self->{SOCK};
 my $buf,bufw;

 # PRIJIMAM V CASOVOM LIMITE...
 eval
 {
  my $SIG{ALRM} = sub { die "alarm\n" };
  my $SIG{PIPE} = sub { die "pipe\n" };
  alarm $self->{timeout}; # TU JE TIMEOUT
  $buf=<$sock>;
  alarm 0; # ZRUSIM TIMEOUT
 };
 if ($@){return undef}else{return $buf;}
}




  

:
:..                      Roman Fordinal
:.: fordinal na slovanet.sk