scripts/scan.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use lib 'lib';
   7
   8 foreach my $reader ( '3M810', 'CPRM02' ) {
   9         my $module = "RFID::Serial::$reader";
  10         eval "use $module";
  11         die $@ if $@;
  12         my $rfid = $module->new( device => '/dev/ttyUSB0' );
  13         $rfid->scan;
  14 }
  15