RFID::Matrics::Tag - Object representing a single proprietary Matrics tag.

RFID-Matrics documentation Contained in the RFID-Matrics distribution.

Index

Code Index:

NAME

Top

RFID::Matrics::Tag - Object representing a single proprietary Matrics tag.

SYNOPSIS

Top

These objects are usually returned by an RFID::Matrics::Reader object:

    use RFID::Matrics::Tag qw(tag2txt);

    my $rff = RFID::Matrics::Reader->new->readfullfield(antenna => MATRICS_ANT_1);
    foreach my $tag (@{$pp->{utags}})
    {
	print "I see tag $tag->{id}\n";
    }

But you can create your own if you want:

    my $tag = RFID::Matrics::Tag->new(type => MATRICS_TAGTYPE_EPC,
				      id = "c80507a8009609de");
    print "Tag is $tag->{id}\n";

DESCRIPTION

Top

Constants

Tag Type Constants

The constants MATRICS_TAGTYPE_EPC, MATRICS_TAGTYPE_MATRICS, and MATRICS_TAGTYPE_OLDMATRICS are recognized tag types. They can be imported into your namespace with the :tagtypes tag.

Constructor

new

Creates a new RFID::Matrics::Tag object. Takes a hash containing various settings as its parameters:

id_bits

A binary string containing the tag's ID. This is the representation used natively by the reader; it will be automatically generated if it is not given but id is.

id

A hex string containing the tag's ID. This is the human-readable representation; it will be automatically generated if it is not given but id_bits is.

type

The type of tag this is. See the Constants section of this page for recognized tag types.

Utility Functions

tagcmp

A comparison function for sort. Compares the ID numbers of two tags, and returns -1 if the first ID is lower, 0 if they are the same, or 1 if the first ID is higher.

SEE ALSO

Top

RFID::Tag, RFID::EPC::Tag, RFID::Matrics::Reader, http://www.eecs.umich.edu/~wherefid/code/rfid-perl/.

AUTHOR

Top

Scott Gifford <gifford@umich.edu>, <sgifford@suspectclass.com>

Copyright (C) 2004 The Regents of the University of Michigan.

See the file LICENSE included with the distribution for license information.

RFID-Matrics documentation Contained in the RFID-Matrics distribution. 
package RFID::Matrics::Tag;
@ISA = qw(RFID::Tag Exporter);
use RFID::Matrics::Reader; $VERSION=$RFID::Matrics::Reader::VERSION;
use RFID::Tag qw(tagcmp);
use Exporter;

# Written by Scott Gifford <gifford@umich.edu>
# Copyright (C) 2004 The Regents of the University of Michigan.
# See the file LICENSE included with the distribution for license
# information.


use strict;

use vars qw(@EXPORT_OK %EXPORT_TAGS);
@EXPORT_OK=(@RFID::Tag::EXPORT_OK);


use constant MATRICS_TAGTYPE_EPC => 0;
use constant MATRICS_TAGTYPE_MATRICS => 1;
use constant MATRICS_TAGTYPE_OLDMATRICS => 2;


sub new
{
    my $class = shift;
    my(%p)=@_;
    my $self = {};

    $self->{id_bits} = $p{id_bits};
    $self->{id} = $p{id};
    if ($self->{id_bits} && $self->{id})
    {
	# Do nothing.
    }
    elsif ($self->{id_bits})
    {
	$self->{id} = tag2txt($self->{id_bits});
    }
    elsif ($self->{id})
    {
	$self->{id_bits} = txt2tag($self->{id});
    }
    
    $self->{len}=length($self->{id_bits});
    $self->{type} = $p{type};
    bless $self,$class;
    $self->_init(%p);
    $self;
}

sub type
{
    # my $self = shift;
    return 'matrics';
}


sub tag2txt
{
    my @a = split(//,$_[0]);
    sprintf "%02x" x scalar(@a), reverse map {ord} @a;
}

sub txt2tag
{
    my $hex = $_[0];
    $hex =~ tr/0-9a-fA-F//cd;
    pack("C*",map { hex } reverse unpack("a2"x(length($hex)/2),$hex));
}


1;