2010-12-05 62 views
0
Image::Magick 

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

Perl - 如何用「系統」調用Image :: Magick調整大小和註釋?

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; 

(上面例子中的$瓦爾均明顯之前聲明。)

我所試圖做的是所有組合成一個較短的程序。

像:

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"); 

我已經嘗試了上述並且還幾個變化只是試圖通過系統來標註(),但是,我只是不知道這一點。

也許還有更好的辦法呢? 在此先感謝教這個老狗的另一個竅門。

+0

(1)爲什麼你需要一個較短的套路,和(2)爲什麼不直接使用圖像:: Magick做轉換,以及作爲註釋,而不是命令行工具? – MkV 2010-12-05 17:50:47

回答