Archive

For the day 日曜日, 2月 12th, 2012

QRコードを作成するプログラムを作ってみた

No Comments

最近、仕事でも携帯電話やスマートフォンでURLを入力する機会が増えてきた。
簡単なURLならまだしも、長ったらしいURLだと入力するのも面倒だし、打ち間違えたりするとイラッ!ときてしまう。

このURL入力を簡素化するためQRコードを生成して、それをカメラで読み取ればいいやと思い、プログラムを作成。

今回は開発スピード重視ということで、開発言語はPerlを用いた。

ちなみにPerlの場合、CPANにGD::Barcode::QRcodeという便利なモジュールがあるのだ。
使い方はいたって簡単。


use GD::Barcode::QRcode;
binmode(STDOUT);
my $qr = new GD::Barcode::QRcode->new(
     'http://www.geekwind.net',
     { Ecc=>'L', Version=>5, ModuleSize=>4 }
);
print $qr->plot->png;
exit;


なんとまぁ、簡単なこと。
ということで、これをCGI化してWebでQRコードを表示できるようにしたのである。



Blue Taste Theme created by Jabox