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も対応してたりします。
本年度の仕事はもうほとんどOpenCOBOLがらみ(´ー｀)本当です
で、OpenCOBOLからのDB接続でOracle、MySQL、PostgreSQL、DB2、その他だいたい可能になりました(´ー｀)あと半角全角変換サブルーチンとかも持ってますしCOMP-3（OpenCOBOLではPACKED DECIMAL)やCOMP-5（Binary）と外部プログラムでの相互変換、汎用機ラインプリンタのエミュレータ、他言語（PHP,Perl,Python）との連携、COBOLソース上の定義体の他言語でのパーサ、XMLの処理、ネットワーク通信（シリアル、TCP/IP）、GUI（Tk）だいたいOKです。
ただいままとめて準備中。現在OpenCOBOLの開発やってるRoger Whileにも連絡を取りながら進めておりますヽ(´ー｀)ノ
ということで幕張メッセで開催中のCAETEC2008の(´ー｀)長崎県ブース周辺にいます
6E12だったかな(´ー｀)直接話してみたいという方は是非ご来場を。
10/1～10/3までですが。