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コード

まったく、なんて便利な世の中なんでしょ!

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

次のHTML タグと属性が使えます: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>