2011-02-22T15:24:16 kristian

Was erwartest du in $retval?
Der Code:
if ( $retval == -1 )
scheint mir nicht "perlig"

perldoc -f select

On error, "select" behaves like the select(2) system call : it returns -1 and sets $!.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem