名前¶

GD::Barcode::UPCE - GDでUPC-Eバーコード・イメージを作成します

概要¶

ex. CGI

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

エラーチェック付き

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

説明¶

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

new¶

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

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

plot()¶

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

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

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

barcode()¶

$sPtn = $oGdBar->barcode();

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

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

$errStr¶

$GD::Barcode::UPCE::errStr

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

$text¶

$oGdBar->{$text}

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

作者¶

川合孝典 [email protected]

著作権(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.

参考資料¶

GD::Barcode