|
下面是一段显示登录校验码的程序。用的是perl的Image::Magick模块。
可是为什么显示不出图形来呢?大家看看是不是有什么错误?
是在Debian的系统下。
use Image::Magick;
use MD5;
my $image = new Image::Magick(size => '80x20');
my $code = "";
my @chars = ('a'..'z');
for (1..6) { $code .= $chars[rand(10)]; }
my $codee = MD5->hexhash("$code"."dddd");
$image->Read('xc:#F0C0C0');
$image->Annotate(font=>'arial.ttf', text=>$code, fill=>'black', pointsize=>15, gravit$
$image->Write("$cfg{'nonCgiDir'}/login/$codee.gif");
undef $image; |
|