use GD::Barcode::NW7; binmode(STDOUT); print "Content-Type: image/png\n\n"; print GD::Barcode::NW7->new('123456789012')->plot->png;
with Error Check
my $oGdBar = GD::Barcode::NW7->new('123456789E'); die $GD::Barcode::NW7::errStr unless($oGdBar); #Invalid Characters
Constructor. Creates a GD::Barcode::NW7 object for $sTxt. $sTxt has variable length string with (0-9, - $ / . + ABCD).
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::NW7->new('123456789012'); my $oGD = $oGdB->plot(NoText=>1, Height => 20); # $sGD is a GD image with Height=>20 pixels, with no text.
returns a barcode pattern in string with '1' and '0'. '1' means black, '0' means white.
ex. my $oGdB = GD::Barcode::NW7->new('123456789012'); my $sPtn = $oGdB->barcode(); # $sPtn = '';
has barcode text based on $sTxt specified in new method.
You may distribute under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file.