ttymon

   1 #!/usr/bin/perl -w
   2
   3 use Time::HiRes qw(gettimeofday tv_interval);
   4 use Event::Lib;
   5 use SCX::Reader;
   6
   7 my ($portname, $logfile) = @ARGV;
   8
   9 if (!defined $portname || !defined $logfile) {
  10         die "Usage: $0 /dev/ttyUSB0 logfile\n";
  11 }
  12
  13 my $reader = SCX::Reader->new({
  14         portname   => $portname,
  15         logfile    => $logfile,
  16         callback   => \&do_packet,
  17 });
  18
  19 sub stdin_read {
  20         my $event = shift;
  21         my $fh = $event->fh;
  22
  23         my $data = <$fh>;
  24         chomp $data;
  25         print "===== ", $data, " =====\n";
  26         $event->add;
  27 }
  28
  29 sub tty_read {
  30         my $event = shift;
  31
  32         $reader->read();
  33         $event->add;
  34 }
  35
  36 sub do_packet {
  37         print "do_packet\n";
  38 }
  39
  40 my $tty_reader = event_new($reader->fh, EV_READ, \&tty_read);
  41 my $stdin_reader = event_new(\*STDIN, EV_READ, \&stdin_read);
  42
  43 $tty_reader->add;
  44 $stdin_reader->add;
  45
  46 event_mainloop;
  47