Perlでバーコード(Code128)をpng出力＆HTML画像埋め込みする方法

Barcode::Code128を使ったバーコード出力

関連ライブラリをインストール

GD関連

$ sudo apt-get install libgd-dev
$ cpanm GD

本体のライブラリをインストール

$ cpanm Barcode::Code128

テストコード

use Barcode::Code128;

my $code = new Barcode::Code128;

open(PNG, ">code128.png");
binmode(PNG);
print PNG $code->png("12345A");
close(PNG);

Barcode::Code128の使い方

バーコード画像をHTML埋め込み出力

出力したバーコード画像をBase64にデコードして、HTMLに埋め込む。

$ cpanm MIME::Base64

テストコード

use Barcode::Code128;
use MIME::Base64;

my $code = new Barcode::Code128;

# output html
my $img = $code->png("AIUEO");
my $img_base64 = encode_base64($img, '');

print '<img src="data:image/png;base64,' . $img_base64 . '">';

出力結果

<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAOQAAAA3AgMAAABhkw6fAAAADFBMVEXMzMz/AAAAAAD////ghtjGAAAAAXRSTlMAQObYZgAAAAlwSFlzAAAOxAAADsQBlSsOGwAAAHRJREFUSInt1cEJwCAMBdCQSXrsmOI4/5IRulcOTb8doEUPSml+DmrggYiiYDTyG3kEA48w93ALBAc3sKz1WeDynrBhhgbOlClTpkw5Ta74HT4lM6/ZFSoVpf+wqmyUolI6IcUqiQGJZbudLCufmo7chMxzLgWrZR49PA+KAAAAAElFTkSuQmCC">