5 Sekunden auf BEnutzereingabe warten ansonsten weiter

[Christian Kruse]

Moin Mark,

mit select() komme ich nicht so ganz weiter:

my $rin="";

my switch="";
vec($rin,fileno(STDIN),1)=1;

select($switch=$rin,undef,undef,5);

>   
> Das macht schon fast was ich will. Nur gibt mir select den STDIN auch aus, das möchte ich nicht. Es soll ja nur in der Variable $switch stehen.  
  
Du musst selber noch lesen. Und an deiner Stelle würde ich auch IO::Select nehmen, das ist eine Abstraktion, die dir schon einiges abnimmt.  
  
LG,  
 CK  

-- 
<http://ck.kennt-wayne.de/>