Barcode::QRcode

Section: User Contributed Perl Documentation (3)
Updated: 2021-01-27
Page Index

NAME

GD::Barcode::QRcode - Create QRcode barcode image with GD

SYNOPSIS

ex. CGI

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

with UnitSize, ECC settings

  my $oGdBar = GD::Barcode::QRcode->new('123456789', 
                            { Ecc => 'L', Version=>2, ModuleSize => 2}
                        );

DESCRIPTION

new

$oGdBar = GD::Barcode::QRcode->new($sTxt,
                    { Ecc => Ecc Mode,
                      Version => Version,
                      ModuleSize => Size of 1 modlue,
                    });

Constructor. Creates a GD::Barcode::QRcode object for $sTxt.

Parameters:

Ecc: Ecc mode. Select 'M', 'L', 'H' or 'Q' (Default = 'M').
Version: Version ie. size of barcode image (Default = auto select).
ModuleSize: Size of modules(barcode unit) (Default = 1).

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

barcode()

$sPtn = $oGdBar->barcode();

returns a barcode pattern in string with '1' and '0'. '1' means black, '0' means white.

 ex.
  my $oGdB = GD::Barcode::QRcode->new('1234567');
  my $sPtn = $oGdB->barcode();

$errStr

$GD::Barcode::QRcode::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

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