Skip site navigation (1)Skip section navigation (2)

FreeBSD Manual Pages

  
 
  

home | help
Barcode::UPCA(3)      User Contributed Perl Documentation     Barcode::UPCA(3)

NAME
       GD::Barcode::UPCA - Create UPC-A	barcode	image with GD

SYNOPSIS
       ex. CGI

	 use GD::Barcode::UPCA;
	 binmode(STDOUT);
	 print "Content-Type: image/png\n\n";
	 print GD::Barcode::UPCA->new('12345678901')->plot->png;

       with Error Check

	 my $oGdBar = GD::Barcode::UPCA->new('123456789');
	 die $GD::Barcode::UPCA::errStr	unless($oGdBar);       #Invalid	Length

DESCRIPTION
       GD::Barcode::UPCA is a subclass of GD::Barcode and allows you to	create
       UPC-A barcode image with	GD.  This module based on "Generate Barcode
       Ver 1.02	By Shisei Hanai	97/08/22".

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

       Constructor.  Creates a GD::Barcode::UPCA object	for $sTxt.  $sTxt has
       11 or 12	numeric	characters([0-9]).  If $sTxt has 11 characters,	this
       module calacurates CD for you.

   plot()
       $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::UPCA->new('12345678901');
	 my $oGD = $oGdB->plot(NoText=>1, Height => 20);
	 # $sGD	is a GD	image with Height=>20 pixels, with no text.

   barcode()
       $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::UPCA->new('12345678901');
	 my $sPtn = $oGdB->barcode();
	 # $sPtn = '';

   $errStr
       $GD::Barcode::UPCA::errStr

       has error message.

   $text
       $oGdBar->{$text}

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

AUTHOR
       Kawai Takanori GCD00051@nifty.ne.jp

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

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

SEE ALSO
       GD::Barcode

perl v5.24.1			  2003-05-29		      Barcode::UPCA(3)

NAME | SYNOPSIS | DESCRIPTION | AUTHOR | COPYRIGHT | SEE ALSO

Want to link to this manual page? Use this URL:
<https://www.freebsd.org/cgi/man.cgi?query=GD::Barcode::UPCA&sektion=3&manpath=FreeBSD+12.0-RELEASE+and+Ports>

home | help