From 01c36f3b998f1f7cddbef3b88d8a9120836104d2 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Tue, 27 Jul 2010 12:00:55 +0200 Subject: [PATCH] dump tags on STDOUT --- scripts/scan.pl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/scripts/scan.pl b/scripts/scan.pl index 3bf7dd2..d28eb61 100755 --- a/scripts/scan.pl +++ b/scripts/scan.pl @@ -3,6 +3,8 @@ use warnings; use strict; +use Data::Dump qw(dump); + use lib 'lib'; foreach my $reader ( '3M810', 'CPRM02' ) { @@ -10,6 +12,10 @@ foreach my $reader ( '3M810', 'CPRM02' ) { eval "use $module"; die $@ if $@; my $rfid = $module->new( device => '/dev/ttyUSB0' ); - $rfid->scan; + my $visible = $rfid->scan; + foreach my $tag ( keys %$visible ) { + warn "XXX $tag"; + print "$tag\t", join('', @{ $visible->{$tag} }), $/; + } } -- 2.20.1