projects
/
Biblio-RFID.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't touch AFI if zero else set it to zero
[Biblio-RFID.git]
/
scripts
/
scan.pl
diff --git
a/scripts/scan.pl
b/scripts/scan.pl
index
5d3fe3c
..
10df6b4
100755
(executable)
--- a/
scripts/scan.pl
+++ b/
scripts/scan.pl
@@
-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;