Imager::QRCodeを使ってみた

perl imager

PODにあるコードそのまま実行してもエラーになるな〜って思って
しばらく悩んでいましたけど、Imagerは errstrというメソッドで
エラーメッセージが見れるので、それを見たら問題があっという間に
解決されました。


gifで出力できなかったのは私の環境で対応していなかったため
でした。とりあえずpngにしたら動いた。それだけです。

#!/usr/bin/env perl
use strict;
use warnings;
use Imager::QRCode;

my $qrcode = Imager::QRCode->new(
    size          => 2,
    version       => 2,
    level         => 'M',
);

my $img = $qrcode->plot("hogehoge");

$img->write(file => 'qr.png') or die $img->errstr;