【perlメモ】CPANモジュール「GD::Barcode」を利用してQRコードを作成するサンプルCPANモジュール「GD::Barcode」を使ってQRコードを生成するサンプル。実行環境はWindows XP Home上のActive perl 5.8.8 qr01.pl #!/usr/bin/perl use strict; use warnings; use GD::Barcode; my $url = ‘https://blog.kumacchi.com/’; my $qrimg = GD::Barcode->new(‘QRcode’,$url,{‘Ecc’=>’M’,Version=>’4′,’ModuleSize’=>’3′}); open(FILE,">qr.gif"); binmode(FILE); print FILE $qrimg->plot->gif; close(FILE); exit(0);
