projects
/
Biblio-RFID.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
read programmed cards directly from log
[Biblio-RFID.git]
/
scripts
/
scan.pl
diff --git
a/scripts/scan.pl
b/scripts/scan.pl
index
5d3fe3c
..
ec61fd5
100755
(executable)
--- a/
scripts/scan.pl
+++ b/
scripts/scan.pl
@@
-6,8
+6,8
@@
use strict;
use Data::Dump qw(dump);
use Getopt::Long;
use lib 'lib';
use Data::Dump qw(dump);
use Getopt::Long;
use lib 'lib';
-use
RFID::Biblio
::Reader;
-use
RFID::Biblio
::RFID501;
+use
Biblio::RFID
::Reader;
+use
Biblio::RFID
::RFID501;
my $loop = 0;
my $reader;
my $loop = 0;
my $reader;
@@
-19,8
+19,8
@@
GetOptions(
'debug+' => \$debug,
) || die $!;
'debug+' => \$debug,
) || die $!;
-my $rfid =
RFID::Biblio
::Reader->new( $reader );
-$
RFID::Biblio
::debug = $debug;
+my $rfid =
Biblio::RFID
::Reader->new( $reader );
+$
Biblio::RFID
::debug = $debug;
sub tag {
my $tag = shift;
sub tag {
my $tag = shift;
@@
-28,7
+28,7
@@
sub tag {
, " AFI: "
, uc unpack('H2', $rfid->afi($tag))
, " "
, " AFI: "
, uc unpack('H2', $rfid->afi($tag))
, " "
- , dump(
RFID::Biblio
::RFID501->to_hash( $rfid->blocks($tag) ) )
+ , dump(
Biblio::RFID
::RFID501->to_hash( $rfid->blocks($tag) ) )
, $/
;
}
, $/
;
}
@@
-37,15
+37,17
@@
do {
my @visible = $rfid->tags(
enter => sub {
my $tag = shift;
my @visible = $rfid->tags(
enter => sub {
my $tag = shift;
- print localtime
." enter $tag
", tag($tag);
+ print localtime
()." enter
", tag($tag);
},
leave => sub {
my $tag = shift;
},
leave => sub {
my $tag = shift;
- print localtime
." leave $tag
", tag($tag);
+ print localtime
()." leave
", tag($tag);
},
);
},
);
- warn localtime." visible: ",join(' ',@visible),"\n";
+ warn localtime()." visible: ",join(' ',@visible),"\n";
+
+ sleep 1;
} while $loop;
} while $loop;