Perlで、QRコードを生成する

最近このモジュールを使っている記事を読まないのですが、GD::Barcode::QRcodeを使ってやってます。数百個のQRコード(URLのパラメタが違うだけとか)を生成する必要があって、これにループさせてURLをファイル名をいじってシェルで実行しています。生成パラメータはCPANのドキュメントとデンソーウェーブのウェブサイトを見ると参考になると思います。

Perlで、QRコードを生成する(CGI編)。 - undiscoの日記CGI編はこちら

#!/usr/bin/perl
use strict;
use warnings;
use GD;
use GD::Barcode::QRcode;

#QRコードにしたいURL
my $url = 'http://www.yahoo.co.jp/';

#書き出したいQRコードのファイル名
my $name = './qr/qr.gif';

#QRコード生成
open(QR,"> ./$name");
my $qr = GD::Barcode::QRcode->new($url, { Ecc => 'M', Version => 3, ModuleSize => 2 })->plot();
print QR $qr->gif;

close QR;