Business::UPC - Perl extension for manipulating Universal Product Codes
use Business::UPC;
# Constructors: # create a UPC object using standard (type-A) UPC $upc = new Business::UPC('012345678905'); # create a UPC object using zero-supressed (type-E) UPC $upc = type_e Business::UPC('01201303');
# is the UPC valid (correct check digit)? $upc->is_valid;
# correct the check digit $upc->fix_check_digit;
# get the numeric string: $upc->as_upc; # same as $upc->as_upc_a; $upc->as_upc_a; $upc->as_upc_e;
# get the components; $upc->number_system; # UPC number system character $upc->mfr_id; # Manufacturer ID $upc->prod_id; # Product ID $upc->check_digit; # Check Digit
# more information about the components: $upc->number_system_description # explain number_system
# methods specific to coupon UPC codes: $upc->is_coupon; $upc->coupon_family_code; # 3-digit family code $upc->coupon_family_description; # explain above $upc->coupon_value_code; # 2-digit value code $upc->coupon_value; # explain above
More detail to come later...
Rob Fugina, robf@geeks.com
perl(1).