Kawaninon.com

2014年10月17日(金)

QRコードの画像をPerlモジュールのImager::QRCodeで生成

PerlモジュールのImager::QRCodeを使用して、QRコードの画像を出力しました。GD::Barcode::QRcodeモジュールよりも簡単にQRコードが作成できます。

#!/opt/local/bin/perl
 
use strict;
use warnings;
use Imager::QRCode;
 
my $qr = Imager::QRCode -> new(
    size => 5,
    margin => 1,
    version => 0,
    level => "M",
    mode => "8-bit",
    lightcolor => Imager::Color -> new(255,255,255),
    darkcolor => Imager::Color -> new(0,0,0)
);
$qr = $qr -> plot("https://www.kawaninon.com");
$qr -> write(file => "sample.png");
undef $qr;
 
exit;

サンプルコードと出力結果です。QRコードの画像を出力しました。