X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=scripts%2Fscan.pl;h=9a920c185f34b4476a6d9a02eb98a77228f5b5bb;hb=8722c748f1fe0386819b8bda89dbefcea6e332ab;hp=91a11578f774cfff764e18739f28fd13714b2ba5;hpb=aa470e78ef8efe173e7cb5716e71825826960f77;p=Biblio-RFID.git diff --git a/scripts/scan.pl b/scripts/scan.pl index 91a1157..9a920c1 100755 --- a/scripts/scan.pl +++ b/scripts/scan.pl @@ -10,14 +10,14 @@ use RFID::Biblio::Readers; use RFID::Biblio::RFID501; my $loop = 0; -my $only; +my $reader; GetOptions( - 'loop!' => \$loop, - 'only=s', => \$only, + 'loop!' => \$loop, + 'reader=s', => \$reader, ) || die $!; -my @rfid = RFID::Biblio::Readers->available( $only ); +my @rfid = RFID::Biblio::Readers->available( $reader ); do { foreach my $rfid ( @rfid ) {