Google::Chart を使って QRコードを生成する

仕事でQRコードを生成しなくちゃならなくなり、「Google が API とか公開してたりして」と思って軽い気持ちで調べてみたら、本当に公開していてビックリ。Google Chart API で QRコードが作れる！

» QR Codes – Google Chart Tools / Image Charts (aka Chart API) – Google Code

で、Perl から使うには、Google::Chart がとてもお手軽で簡単でした。

#!/usr/bin/perl
use strict;
use warnings;
use Google::Chart;

my $url = 'http://jmblog.jp';
my $size = '160x160';

my $chart = Google::Chart->new(
type => {
module => 'QRcode',
args => {
text => $url,
encoding => 'shift_jis',
},
},
size => $size,
);
print $chart->as_uri,"\n";
$chart->render_to_file( filename => 'qr-code.png' );

QRコード