Hallo alle,

ich lese mit Perl eine RS232-Schnittstelle aus:

my $verbindung = open( PORT, "+>COM1" );
read(PORT, $daten, 12);
print "$daten";

Jetzt habe ich ein Problem!

Wenn das Gerät jetzt ausgeschaltet ist, dann bekomme ich nichts reingelesen und das Programm hängt sich auf! Jetzt würde ich gerne vor dem read-Befehl einen Timeout() setzen, der ca. 4sek. wartet und wenn nichts kommt diesen Code überspringt.

Gibt es denn sowas oder wie muss ich das machen?

Bin um jede Hilfe dankbar!

Schönen Tag

Florian