GD::Barcode::NW7 (3pm)

ex. \s-1CGI\s0

  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

GD::Barcode::NW7 is a subclass of GD::Barcode and allows you to create \s-1NW7\s0 barcode image with \s-1GD\s0. This module based on \*(L"Generate Barcode Ver 1.02 By Shisei Hanai 97/08/22\*(R".

new

$oGdBar = GD::Barcode::NW7->new($sTxt);

Constructor. Creates a GD::Barcode::NW7 object for $sTxt. $sTxt has variable length string with (0-9, - $ / . + \s-1ABCD\s0).

\fIplot()\fP

$oGd = $oGdBar->plot([Height => $iHeight, NoText => 0 | 1]);

creates \s-1GD\s0 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.

\fIbarcode()\fP

$sPtn = $oGdBar->barcode();

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 = ''; $GD::Barcode::NW7::errStr

has error message. $oGdBar->{$text}

has barcode text based on $sTxt specified in new method.

Kawai Takanori [email protected]

The GD::Barocde::NW7 module is Copyright (c) 2000 Kawai Takanori. Japan. All rights reserved.

You may distribute under the terms of either the \s-1GNU\s0 General Public License or the Artistic License, as specified in the Perl \s-1README\s0 file.

GD::Barcode