Perl - "시스템"호출로 Image :: Magick의 크기를 조정하고 주석을 달려면 어떻게합니까?

Question

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

위의 잘 작동 두

하지만, 나는 형상과 크기를 사이에 볼 수 DIFF이 표시되지 않습니다. 그것에 읽고, 내 머리 위로, 그렇게 작동, 내가 여기에 가서 배우게됩니다. 주석에 대한

는 아래 잘 작동 :

이

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

은()하지만, 난 그냥이 알아낼 수 없습니다 시스템을 통해 주석을 시도했다.

아마도 더 좋은 방법이 모두 함께있을 것입니까? 이 오래된 개에게 다른 트릭을 가르쳐 주셔서 미리 감사드립니다.

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

당신이 짧은 루틴을해야하고, (2) 이유는 단지 이미지를 사용하지 않는 이유