Perl - 如何通过“系统”调用使用Image :: Magick调整大小和注释?

时间:2010-12-05 14:36:47

标签: perl imagemagick annotate

Image::Magick

system("convert $imageurl $new");
system("convert $new -geometry 480x360 -blur .8 -quality 100 $new");

system("convert $imageurl $new");
system("convert $new -resize 480x360 -blur .8 -quality 100 $new");

上述两种工作都很好但是,我没有看到几何体之间的可见差异和调整大小。阅读它,在我的头上,它的工作原理,我将学习,因为我去了这里。

对于注释,以下工作正常:

my $image;
my $test_text="testies123"; 
$image=Image::Magick->new;
my $x=$image->Read(filename=>"$new");
$x=$image->Annotate(text=>"$test_text",font=>'Candice.ttf',fill=>'#5BADFF',pointsize=>'14',gravity=>'SouthEast', x=>5, y=>5);
$x=$image->Write(filename=>'new_file.jpg'); undef $image;

(以上示例中的$ vars显然是先前宣布的。)

我要做的是将它们全部合并为一个较短的例程。

像:

system("convert $new -geometry 480x360 -blur .8 -quality 100 -annotate -text testies123 -font Candice -fill blue -pointsize 14  -gravity SouthEast -x 5 -y 5 $new");

我已经尝试了上面的几种变体,并且只是尝试通过system()进行注释,但是,我只是想不出来。

也许甚至有更好的方式在一起? 提前感谢老狗的另一招。

1 个答案:

答案 0 :(得分:1)

您可以阅读文档以清除-annotate选项http://www.imagemagick.org/script/command-line-options.php#annotate

的参数
system("convert $new -geometry 480x360 -blur .8 -quality 100 -font Candice -fill blue -pointsize 14  -gravity SouthEast -annotate +5+5 testies123 $new")