perlmagick imagemagick错误

Question

我的托管提供商最近升级了他们的服务器，我在 Perl 中的 imagemagick 脚本方面遇到了很多问题。我的脚本在旧服务器上运行得很好，但在新服务器上却失败了，所以我回到基础知识来尝试找出问题所在。

服务器将 imagemagick 报告为：

Version: ImageMagick 6.7.2-2 2011-10-20 Q16 http://www.imagemagick.org
Copyright: Copyright (C) 1999-2011 ImageMagick Studio LLC
Features: OpenMP

且 perl 模块 Image::Magick 版本为 6.72

以下脚本保存在我的服务器上：

#!/usr/bin/perl 
use CGI::Carp qw( fatalsToBrowser );

use Image::Magick;

my $image = Image::Magick->new;

$x = $image -> Set(size=>"200x200");
warn "$x" if "$x";

$x = $image -> ReadImage("canvas:black");
warn "$x" if "$x";

$x = $image -> Draw (
  stroke    => "red",
  primitive => "line",
  points    => "20,20 180,180");
warn "$x" if "$x";

print "Content-type: image/gif\n\n";
binmode STDOUT;
$image -> write ("gif:-");

失败并出现以下错误：

[Sun Oct 23 11:02:32 2011] imtest.pl: Exception 420: no decode delegate for this image format `lack' @ error/constitute.c/ReadImage/532 at www/11/cgi-bin/imtest.pl line 12.
[Sun Oct 23 11:02:32 2011] imtest.pl: Exception 410: no images defined `Draw' @ error/Magick.xs/XS_Image__Magick_Mogrify/7394 at www/11/cgi-bin/imtest.pl line 18.

如果我更改 ReadImage("canvas:black") 到 ReadImage("xc:black") 然后脚本连续运行，没有输出。

我的虚拟主机一直在努力寻找解决方案，但我需要知道我是否在这里做错了什么，或者 imagemagick 是否存在安装问题。

请注意，我意识到上述操作可以使用其他更简单的模块来完成，但这只是一个简单的示例，用于确定问题是 imagemagick 还是我的代码！

感谢您的帮助。

问候，

斯图

Answer 1

我在使用 ImageMagick 版本 6.3.7 的 winxp 命令行模式下收到了类似的错误。

我将前几行更改为：

my $image = Image::Magick->new(size=>"200x200");
die "Image::Magick->new failed" unless $image;

my $x = $image->Read("xc:black");
warn "$x" if "$x";