scripts/scan.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use Data::Dump qw(dump);
   7 use Getopt::Long;
   8
   9 my $loop = 0;
  10 my $only;
  11
  12 GetOptions(
  13         'loop!'   => \$loop,
  14         'only=s', => \$only,
  15 ) || die $!;
  16
  17 my @readers = ( '3M810', 'CPRM02' );
  18
  19 use lib 'lib';
  20
  21 do {
  22         foreach my $reader ( '3M810', 'CPRM02' ) {
  23                 next if $only && $only ne $reader;
  24                 my $module = "RFID::Serial::$reader";
  25                 eval "use $module";
  26                 die $@ if $@;
  27                 my $rfid = $module->new( device => '/dev/ttyUSB0' );
  28                 my $visible = $rfid->scan;
  29                 foreach my $tag ( keys %$visible ) {
  30                 warn "XXX $tag";
  31                         print "$reader\t$tag\t", join('', @{ $visible->{$tag} }), $/;
  32                 }
  33         }
  34
  35 } while $loop;