PerlでQRcode

QRcodeが気になったのでCPAN module(GD::Barcode::QRcode)を用いて作ってみた。

まずモジュールのインストール。
以下をインストールしました。

  • GD::Barcode::QRcode


インストールが終わったらコーディング。

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use GD::Barcode::QRcode;

my $res = GD::Barcode::QRcode->new(
    '1234567890'
)->plot();

open my $fh, ">", "qr.png";
print $fh, $res->png;
close $fh;
exit;

結構簡単でした。。

GQ::Barcode::QRcode->newの第2引数に以下のハッシュテーブルを渡すことで各種設定が可能です。
  • ECC: エラー訂正レベル。

'L', 'M', 'Q', 'H'が指定可能です。
　復元能力は、L:7%, M:15%, Q:25%, L:30%となっているようです。

  • Version: サイズ。

　1..40までの値が設定可能です。
　値の意味については一辺のモジュール（１マス）が1: 21モジュールから40: 177モジュールを表しているようです。
　# 4[モジュール/バージョン]
　無指定の場合はautoとなっています。

  • ModuleSize: 1モジュール（1マス）の大きさだと思います。
出力フォーマットはplot()->以降で変更可能です。

指定できるのは以下の4つ。

画像サイズを変更したい場合

plot()にHeightの引数を渡すと設定が可能なようですが自分はうまくできませんでした。。。

このようにGD::Barcode::QRcodeを使うことで結構簡単かつ自由にQRcodeが作れたので今後何か企てます！！