scripts/scan.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use Data::Dump qw(dump);
   7
   8 use lib 'lib';
   9
  10 foreach my $reader ( '3M810', 'CPRM02' ) {
  11         my $module = "RFID::Serial::$reader";
  12         eval "use $module";
  13         die $@ if $@;
  14         my $rfid = $module->new( device => '/dev/ttyUSB0' );
  15         my $visible = $rfid->scan;
  16         foreach my $tag ( keys %$visible ) {
  17         warn "XXX $tag";
  18                 print "$tag\t", join('', @{ $visible->{$tag} }), $/;
  19         }
  20 }
  21