« ペプシブルーを飲んでみる | メイン | どうでもいいけど »

2004年06月23日

QRコードを作ってみる

　最近、ドコモのCMでひっきりなしにQRコードをPRしているので、なぜか自分でも作ってみた（昨日もCmodeで実際に使ったしね）。

　ドコモの公式サイトから「QRファクトリー」なるものがダウンロードできるので、通常はこちらを利用するのが楽です（NT系のみ対応）。
　ですが、こないだCPANの検索サイトを覗いてたら「GD::Barcode」とかいうモジュールを見つけたので、今回はこちらを使ってみました。

　以下、実際に書いたコード（モジュール内の例をいぢっただけ）

#!/usr/bin/perl


use GD::Barcode::QRcode;

my $oGdB = GD::Barcode::QRcode->new('http://jewel.s11.xrea.com/cgi-bin/x/mt4i.cgi',

		{ Ecc => 'L', Version=>3, ModuleSize=>3}

	);

die $GD::Barcode::QRcode::errStr unless ($oGdB);

open(PNG,">QR.png");

binmode(PNG);

print PNG $oGdB->plot->png;

exit;

まぁ、使う時は適時書き換えて下さい（いないか）。

投稿者 cubick : 2004年06月23日 15:17

トラックバック

このエントリーのトラックバックURL:
http://jewel.s11.xrea.com/blog/mt-tb.cgi/3

コメント

コメントしてください




保存しますか?