X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=scripts%2Fscan.pl;h=9ad003c6443c579f3e4a6849f9b6b524b5d52777;hb=8da60cfabcba9320cf5649439aa8b482147de5bf;hp=93f521cb047816b24c055bafe1618d6185e9e860;hpb=6f63ddef6bb161dfb17dafe032b7aaa57dc73c6a;p=Biblio-RFID.git

diff --git a/scripts/scan.pl b/scripts/scan.pl
index 93f521c..9ad003c 100755
--- a/scripts/scan.pl
+++ b/scripts/scan.pl
@@ -17,21 +17,17 @@ GetOptions(
 	'reader=s', => \$reader,
 ) || die $!;
 
-my @rfid = RFID::Biblio::Readers->available( $reader );
+my $rfid = RFID::Biblio::Readers->new( $reader );
 
 do {
-	foreach my $rfid ( @rfid ) {
-		my $visible = $rfid->scan;
-		foreach my $tag ( keys %$visible ) {
-			my $afi = $rfid->read_afi( $tag );
-			print ref($rfid)
-				, " $tag AFI: "
-				, uc unpack('H2', $afi)
-				, " "
-				, dump( RFID::Biblio::RFID501->to_hash( join('', @{ $visible->{$tag} }) ) )
-				, $/
-				;
-		}
+	my @visible = $rfid->tags;
+	foreach my $tag ( @visible ) {
+		print $tag
+			, " AFI: "
+			, uc unpack('H2', $rfid->afi($tag))
+			, " "
+			, dump( RFID::Biblio::RFID501->to_hash( $rfid->blocks($tag) ) )
+			, $/
+			;
 	}
-
 } while $loop;