6 use Data::Dump qw(dump);
9 use Biblio::RFID::Reader;
10 use Biblio::RFID::RFID501;
17 'reader=s', => \$reader,
22 my ( $sid, $content ) = @ARGV;
23 die "usage: $0 [--reader regex_filter] [--afi 214] E0_RFID_SID [barcode]\n" unless $sid && ( $content | $afi );
25 my $rfid = Biblio::RFID::Reader->new( $reader );
26 $Biblio::RFID::debug = $debug;
28 foreach my $tag ( $rfid->tags ) {
29 warn "visible $tag\n";
30 next unless $tag eq $sid;
31 warn "PROGRAM $tag with $content\n";
32 $rfid->write_blocks( $tag => Biblio::RFID::RFID501->from_hash({ content => $content }) );
33 $rfid->write_afi( $tag => chr($afi) ) if $afi;