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;