Net::UPCDatabase

Net::UPCDatabase is a Perl module with a simple OO interface to UPCDatabase.com
Download

Net::UPCDatabase Ranking & Summary

Advertisement

  • Rating:
  • License:
  • Perl Artistic License
  • Price:
  • FREE
  • Publisher Name:
  • Dusty Wilson
  • Publisher web site:
  • http://search.cpan.org/~wilsond/

Net::UPCDatabase Tags


Net::UPCDatabase Description

Net::UPCDatabase is a Perl module with a simple OO interface to UPCDatabase.com Net::UPCDatabase is a Perl module with a simple OO interface to UPCDatabase.comSYNOPSIS use Net::UPCDatabase; my $upcdb = Net::UPCDatabase->new; print '< pre >'; print "nn"; my $upc = '035000764119'; my $item = $upcdb->lookup($upc); print "UPC: $item->{upc}n"; if ($item->{error}) { print "Error: $item->{error}n"; } else { print "Product: $item->{description}n"; print "Size: $item->{size}n"; } print "nn"; my $upcE = '01212901'; my $upcA = $upcdb->convertUpcE($upcE); print "UPCE: $upcA->{upcE}n"; if ($upcA->{error}) { print "Error: $upcA->{error}n"; } else { print "UPCA: $upcA->{upc}n"; } print "nn"; my $upcC = '01200000129C'; my $upcA = $upcdb->calculateCheckDigit($upcE); print "UPCC: $upcA->{upcC}n"; if ($upcA->{error}) { print "Error: $upcA->{error}n"; } else { print "UPCA: $upcA->{upc}n"; } print '< /pre >'; Requirements: · Perl · RPC::XML · RPC::XML::Client


Net::UPCDatabase Related Software

About SoftwareSea