GD::Barcode::UPCE - Create UPC-E barcode image with GD
ex. CGI
use GD::Barcode::UPCE; binmode(STDOUT); print "Content-Type: image/png\n\n"; print GD::Barcode::UPCE->new('123456')->plot->png;
with Error Check
my $oGdBar = GD::Barcode::UPCE->new('123456789'); die $GD::Barcode::UPCE::errStr unless($oGdBar); #Invalid Length
GD::Barcode::UPCE is a subclass of GD::Barcode and allows you to create UPC-E barcode image with GD.
$oGdBar = GD::Barcode::UPCE->new($sTxt);
Constructor. Creates a GD::Barcode::UPCE object for $sTxt. $sTxt has 6 or 7 or 8 numeric characters([0-9]). If $sTxt has 6 characters, this module adds '0' at the front of $sTxt. and calculates CD for you. If $sTxt has 7 characters, this module calaculates CD for you.
$oGd = $oGdBar->plot([Height => $iHeight, NoText => 0 | 1]);
creates GD object with barcode image for the $sTxt specified at new method. $iHeight is height of the image. If NoText is 1, the image has no text image of $sTxt.
ex. my $oGdB = GD::Barcode::UPCE->new('123456'); my $oGD = $oGdB->plot(NoText=>1, Height => 20); # $sGD is a GD image with Height=>20 pixels, with no text.
$sPtn = $oGdBar->barcode();
returns a barcode pattern in string with '1', 'G' and '0'. '1' means black, 'G' also means black but little bit long, '0' means white.
ex. my $oGdB = GD::Barcode::UPCE->new('123456'); my $sPtn = $oGdB->barcode(); # $sPtn = '';
$GD::Barcode::UPCE::errStr
has error message.
$oGdBar->{$text}
has barcode text based on $sTxt specified in new method.
Kawai Takanori GCD00051@nifty.ne.jp
GD::Barcode
To install GD::Barcode, copy and paste the appropriate command in to your terminal.
cpanm
cpanm GD::Barcode
CPAN shell
perl -MCPAN -e shell install GD::Barcode
For more information on module installation, please visit the detailed CPAN module installation guide.