わいえむねっと

2010/06/13 Sun: GD::Barcode の環境を整えないとなーと思いつつ、なんの気なしに

$ perl -MGD::Barcode -e ''

と打ったらエラーを吐かずに終了したので、あれーと思いつつ

$ perl -MGD::Barcode -e 'open(OUT, q/>foo.png/);binmode OUT;print OUT GD::Barcode->new(q/EAN13/,q/4903110021322/)->plot->png'

と打ったら

環境整ってた。いつの間に。

まぁそれならそれでいいかーと思いつつ

$ cat barcode.txt|perl -MGD::Barcode -pe 'chomp;open STDOUT,qq/>$_.png/;binmode STDOUT;$_=GD::Barcode->new(q/EAN13/,$_)->plot->png'

一括生成。
2010/06/13 14:04:25