Imager::QRCode

install

$ cpanm Imager::QRCode

環境によっては、sudo 必要

サンプルコードを動かそうとして。

$ perldoc Imager::QRCode | grep -A 13 SYNOPSIS | grep -v SYNOPSIS > test.pl
$ cat test.pl
        use Imager::QRCode;

        my $qrcode = Imager::QRCode->new(
            size          => 2,
            margin        => 2,
            version       => 1,
            level         => 'M',
            casesensitive => 1,
            lightcolor    => Imager::Color->new(255, 255, 255),
            darkcolor     => Imager::Color->new(0, 0, 0),
        );
        my $img = $qrcode->plot("blah blah");
        $img->write(file => "qrcode.gif");
$ perl test.pl

あれ？　qrcode.gif が生成されない、、、と思ったら ↓ のエラー。 @yosemite¹

$ grep gif .cpanm/build.log
Warning (mostly harmless): No library found for -lgif
GIF: Test code failed: Can't link/include 'gif_lib.h', 'stdio.h', 'errno.h', 'string.h', 'gif'
t/200-file/220-nogif.t .......... ok

ちょっとググったら gif のライブラリが、homebrew にあるらしいので、

giflib のインストール

$ brew install giflib
$ find /PATH/TO/homebrew -name gif_lib.h 
/PATH/TO/homebrew/Cellar/giflib/4.2.3/include/gif_lib.h    
/PATH/TO/homebrew/include/gif_lib.h

して

$ cpanm -reinstall Imager::QRCode

したら、build.log のエラーは消えた。

しかし、$ perl test.pl しても、qrcode.gif は生成されない。エラーも吐かない。

ウィンドウズでのこのチケットと関係があるのかないのか、、、ほっとこか²。

てんで

$ perl -i -pe 's/gif/png/' test.pl

して

$ perl test.pl

して、 qrcode.png が出来るの確認。

で、

先日の BARCODE.pm を use して文字列付きの連番 QR コードを出力

$ cat test.pl
use strict;
use warnings;
use autodie ;
use Getopt::Long ;
use Imager::QRCode;
use BARCODE ;

my $string = q{test} ;
my $index = 0 ;
my $range = 20 ;
GetOptions (
    "string=s" => \$string,
    "start=i" => \$index,
    "range=i" => \$range,
) ;

$index -- if $index != 0 ;

my $qrcode = Imager::QRCode->new(
	margin        => 1,
	casesensitive => 1,
	mode => '8-bit',
	lightcolor    => Imager::Color->new(255, 255, 255),
	darkcolor     => Imager::Color->new(0, 0, 0),
);

my $obj  = BARCODE->new( $index ) ;
open my $out, q{>}, q{./index.html} ;
print $out <<EOF ;
<!doctype html>
<html>
<body>
<table>
EOF


for ( 0 .. ( $range - 1) ){
    $obj->add ;
    print $out "<tr>\n" ;
    print $out "<td>\n" ;
    my $str = $string . $obj->{barcode} ;
    my $img = $qrcode->plot($str);
    $img->write(file => "./${str}.png");
    print $out qq{<td>${str}</td>} ;
    print $out qq{<td><img src="./${str}.png" alt="${str}" width="60" height="60"></td>} ;
    print $out "\n</td>\n" ;
    print $out qq{<tr height="30"></tr>\n} ;
}

print $out <<EOF ;
</table>
</body>
EOF

close $out ;

$ perl test.pl -str TEST -sta 1 -r 4

他の yosemite でもダメだった。 ↩
たかだか、gif が使えない程度で、他のライブラリを検討する程の情熱もない。 ↩