WEBシステム開発・ディレクション
cpanモジュールのGD::Barcode::QRcodeで。
use GD::Barcode::QRcode;
open QR, '>', 'qr.png';
binmode(QR);
print QR GD::Barcode::QRcode->new(
'http://example.com/mobile/', # 内容
{ModuleSize => 2} # オプション
)->plot->png;
close QR;
参考:
http://search.cpan.org/~kwitknr/GD-Barcode-1.15/Barcode/QRcode.pm
2010/02/25