有没有Perl生成二维码图片的模块？

unix666

现在需要在程序中对特定信息生成二维码图，在CPAN上没找到，也可能有但是我没找到

xfoucs

搜索了下qrcode 一堆啊 :wink:

unix666

所以当时觉得奇怪了，我是查的“two dimension code”，没查“qrcode ”

unix666

安装了

1. Imager::QRCode

复制代码

用自带的例子程序：

1. use Imager::QRCode;
   
2. 
   
3. my $qrcode = Imager::QRCode->new(
   
4. size  => 2,
   
5. margin=> 2,
   
6. version   => 1,
   
7. level => 'M',
   
8. casesensitive => 1,
   
9. lightcolor=> Imager::Color->new(255, 255, 255),
   
10. darkcolor => Imager::Color->new(0, 0, 0),
    
11. );
    
12. my $img = $qrcode->plot("blah blah");
    
13. $img->write(file => "qrcode.gif");

复制代码

运行后没生成qrcode.gif，当前目录是可写的，请教怎么回事

gaoyang636

打开strict和warning。然后看看error信息～

unix666

试了，打开strict和warning，没有任何error信息，求解

xfoucs

回复 4# unix666

刚试了试没问题，改成下面的看看

1. $img->write(file => "qrcode.gif") or die  $img->errstr;

复制代码

可能是没有写权限     

unix666

感谢！写权限倒是有的，加上了or die  $img->errstr;　看到了错误提示：

format 'gif' not supported - formats bmp, ico, pnm, raw, sgi, tga available for writing - Can't locate Imager/File/GIF.pm at qrcode.pl line 17.

改为：
$img->write(file => "qrcode.bmp") or die  $img->errstr;

生成了bmp格式的二维码图。

看样装个Imager::File::GIF应该可以出来gif图了。

unix666

1. 又有问题了，生成bmp格式的二维码图没问题，可我需要的是gif格式的。
   
2. 
   
3. 安装Imager::File::GIF
   
4. cpan> install Imager::File::GIF
   
5. 
   
6. 错误提示：
   
7. GIF: building independently
   
8. GIF: main: includes not found - libraries not found
   
9. GIF: Checking if the compiler can find them on its own
   
10. GIF: Test code failed: Can't link/include 'gif_lib.h', 'stdio.h', 'errno.h', 'string.h', 'gif'
    
11. OS unsupported: GIF libraries or headers not found
    
12. Warning: No success on command[/usr/bin/perl Makefile.PL INSTALLDIRS=site]
    
13.   TONYC/Imager-File-GIF-0.87.tar.gz
    
14.   /usr/bin/perl Makefile.PL INSTALLDIRS=site -- NOT OK
    
15. 
    
16. 继续求解
    

复制代码

xfoucs

回复 9# unix666

安装对应发行版本下的 giflib