projects
/
Biblio-RFID.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f829798
)
sort print queue before printing by cardnumber
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 2 Sep 2010 13:27:19 +0000
(15:27 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 2 Sep 2010 13:27:19 +0000
(15:27 +0200)
scripts/print.pl
patch
|
blob
|
history
diff --git
a/scripts/print.pl
b/scripts/print.pl
index
cf76823
..
fbc82a2
100755
(executable)
--- a/
scripts/print.pl
+++ b/
scripts/print.pl
@@
-53,6
+53,9
@@
while(<>) {
push @queue, [ @a ] if ! $numbers->{ $a[0] };
}
push @queue, [ @a ] if ! $numbers->{ $a[0] };
}
+# sort by card number
+@queue = sort { $a->[0] <=> $b->[0] } @queue;
+
print "# queue ", dump @queue;
my $rfid = Biblio::RFID::Reader->new( $reader );
print "# queue ", dump @queue;
my $rfid = Biblio::RFID::Reader->new( $reader );