GD-Barcode-1.13 > GD::Barcode::EAN13

名前

GD::Barcode::EAN13 - GDでEAN13(JAN13)バーコード・イメージを作成します

概要

ex. CGI

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

エラーチェック付き

  my $oGdBar = GD::Barcode::EAN13->new('123456789');
  die $GD::Barcode::EAN13::errStr unless($oGdBar);  #長さが不正

説明

GD::Barcode::EAN13はGD::Barcodeのサブクラスで、 GDでEAN13(JAN13)バーコードイメージを作成することを可能にします。 このモジュールは"Generate Barcode Ver 1.02 By Shisei Hanai 97/08/22"を ベースにしています。

new

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

コンストラクタ。 $sTxtのためのGD::Barcode::EAN13のオブジェクトを作成します。 $sTxtは12あるいは13桁の数字([0-9])です。 もし$sTxtが12桁であれば、あなたに代わってCDを計算します。

plot()

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

newメソッドで指定された$sTxtのバーコードイメージを持った GDオブジェクトを作成します。$iHeightはイメージの高さです。 もしNoTextが1であればイメージには$sTxtのテキストのイメージは入りません。

 例.
  my $oGdB = GD::Barcode::EAN13->new('123456789012');
  my $oGD = $oGdB->plot(NoText=>1, Height => 20);
  # $sGDはHeight=>20ピクセルでテキストなしのGDイメージになります

barcode()

$sPtn = $oGdBar->barcode();

'1'と'0'の文字列でバーコードのパターン返します。 '1'は黒、'0'は白を意味します。

 例.
  my $oGdB = GD::Barcode::EAN13->new('123456789012');
  my $sPtn = $oGdB->barcode();
  # $sPtn = '';

$errStr

$GD::Barcode::EAN13::errStr

エラーメッセージが入ります。

$text

$oGdBar->{$text}

newメソッドで指定された$sTxtをベースにしたバーコードのテキストが入ります。

作者

川合孝典 GCD00051@nifty.ne.jp

著作権(COPYRIGHT)

The GD::Barocde::EAN13 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.

参考資料

GD::Barcode