perlでのQRコードの生成について

Question

perlを使用してQRコードの生成を行いたいと思っています。

■環境
・CentOS6
・perl Ver5.10.1

コードは以下の通りです。

#!/usr/bin/perl
#
use strict;
use GD::Barcode;
use KCatch qw( source );

my $url = "http://sample.jp";


my $qrimg = GD::Barcode->new("QRcode",$url,{Ecc => "M", Version => 4 , ModuleSize => 3 });


open(FILE,">qr.png");
binmode(FILE);
print FILE $qrimg->plot->png;
close(FILE);

print "Content-type: text/html \n\n";
print "Hello";

exit(0);

以下の様なエラーコードが出るのですが、perlモジュールはインストールできたかと思うのですが、
何か考えられることはありますでしょうか。

[QRcode.pm:285:die] Can't locate object method "new" via package "GD::Image" (perhaps you forgot to load "GD::Image"?) at /usr/local/share/perl5/GD/Barcode/QRcode.pm line 285.

また他にperlを使用してQRコードの生成ができる「Imager::QRcode」なども試してみましたが、
うまくQRコードが生成できていない状態です。

お手数ですが、どなたかご回答宜しくお願い致します。

Comments

[m.ts10806]

質問は編集できますので新たに投稿する必要はありません。
またコードはマークダウンのcode機能を利用してご提示ください

[dev-beginner]

申し訳ありません。
修正しました、間違えて二重で投稿してしまった為片方は削除リクエストを送っています。

Answer 1

ここに掲載されているコードでうまくいきませんか?
https://metacpan.org/pod/GD::Barcode::QRcode

Comments

[dev-beginner]

試してみたのですが、うまくいきませんでした。
Imager::QRCodeのモジュールを再度インストールし直すとうまくいったのでそちらで今回は行こうと思います。
ありがとうございました。