LAN板とソレ以外の日々

OpenCOBOLとperl(´ー｀)素敵な出会い

CALL "cob_perl_require" USING "barcode.pl".
CALL "cob_perl_call" USING "barcode"
"sample-barcode.png" "1234567890".

#!/usr/bin/perl
use GD;
use Barcode::Code128;

sub barcode {
my ($filename, $value) = @_;
my $barcode= new Barcode::Code128;
$barcode->text(FNC1, $value);
open(PNG, ">$filename") or die "Can't write $filename: $!\n";
binmode(PNG);
print PNG $barcode->png("CODE 128");
close(PNG);
}
1;

これがもう動作していたりする(´ー｀)
詳細は今はまだ出せないんだけど、もう少しバグ出ししたり、メモリリーク調べたり、某所で運用して安定性を確認したり速度チューンしたりしたら(´ー｀)出てくるかも。
ちなみにちゃんとCOMP-3もBINARYも対応してたりします。