Question

I’m writing my first Perl app — an AOL Instant Messenger bot that talks to an Arduino microcontroller, which in turn controls a servo that will push the power button on our sysadmin’s server, which freezes randomly every 28 hours or so.

I’ve gotten all the hard stuff done, I’m just trying to add one last bit of code to break the main loop and log out of AIM when the user types ‘quit’.

The problem is, if I try to read from STDIN in the main program loop, it blocks the process until input is entered, essentially rendering the bot inactive. I’ve tried testing for EOF before reading, but no dice… EOF just always returns false.

Here’s below is some sample code I’m working with:

while(1) {     $oscar->do_one_loop();  # Poll to see if any arduino data is coming in over serial port     my $char = $port->lookfor();  # If we get data from arduino, then print it     if ($char) {         print '' . $char ;     }      # reading STDIN blocks until input is received... AAARG!     my $a = <STDIN>;     print $a;     if($a eq 'exit' || $a eq 'quit' || $a eq 'c' || $a eq 'q') {last;} }  print 'Signing off... ';  $oscar->signoff(); print 'Done\n'; print 'Closing serial port... '; $port->close() || warn 'close failed'; print 'Done\n'; 

Answer 1

The Perl built-in is select(), which is a pass-through to the select() system call, but for sane people I recommend IO::Select.

Code sample:

#!/usr/bin/perl  use IO::Select;  $s = IO::Select->new(); $s->add(\*STDIN);  while (++$i) {   print 'Hiya $i!\n';   sleep(5);   if ($s->can_read(.5)) {     chomp($foo = <STDIN>);     print 'Got '$foo' from STDIN\n';   } }