Summary
http://example.com/cgi-bin/qr.cgi?q=QRコードにしたい文字列でQRコードの画像を生成したい．
準備
# cpan -i GD::Barcode::QRcode
注意
GD::Barcode::QRcode (0.01) 40行目を変更#$oSelf->{Version} = $rhPrm->{Version} || 1;
$oSelf->{Version} = $rhPrm->{Version};Source
#!/usr/bin/perl
use strict;
use CGI;
use GD::Barcode::QRcode;
my $q = new CGI;
my $str = $q->param('q');
my $header = qq(Content-Type: image/png\n\n);
my $qr = GD::Barcode::QRcode->new($str)->plot->png;
print $header,$qr;
exit;Reference
GD::Barcode::QRcodeDebian パッケージディレクトリ検索 (バイナリ) - libgd-graph-perl
どんぞこ日誌(2004-07-25)
http://donzoko.net/cgi-bin/tdiary/20040725.html