🚀 go-pugleaf

Mam program (źle napisany) w którym czytam sobie dane z portu
szeregowego i zapisuję w Postgresie.

#
   $ob = Device::SerialPort->new ($file) or die "Can't start $file\n";

   $ob->baudrate(19200) || die "fail setting baudrate";
   $ob->parity("none")  || die "fail setting parity";
   $ob->databits(8)     || die "fail setting databits";
   $ob->stopbits(1)     || die "fail setting stopbits";
   $ob->handshake("none")       || die "fail setting handshake";

   $ob->write_settings || die "no settings";
#
#
      if ( $c = $ob -> input ) { <-------------- tu jest odczyt
#
          @linie = split(/\n/, $c);
          $ilosc_linii = @linie;
#

i tak dalej...

teraz chciałbym, żeby jeżeli przez jakiś określony czas danych nie
będzie, to żeby program mógł podjąć jakieś działanie. Czyli musiałby
wyjść z odczytu z zaznaczeniem że nic nie ma.

Domyślam się, że będzie to non-blocking IO,
ktoś poda link do (zrozumiałych) przykładów?

W.P.