Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Помогите перевести на язык Perl + Image::Magick

Автор: AlexanderI 21.6.2010, 10:34

Здравствуйте.
Помогите перевести на язык Perl + Image::Magick ?

Код


convert 1.jpg -resize "132x132^" -gravity center -crop 132x132+0+0 +repage 3.jpg

Т.е. у меня есть скрипт Perl, который должен уменьшить и обрезать картинку.

Автор: arto 21.6.2010, 10:53

system "convert 1.jpg -resize 132x132^ -gravity center -crop 132x132+0+0 +repage 3.jpg"; ?

Автор: AlexanderI 21.6.2010, 11:25

Нет, мне надо чтото типа токого:

Код


use Image::Magick;
my $image = Image::Magick->new; 
my $x = $image->Read("1.jpg"); 

???????? -> Тут код который надо переделать

$image->Write("3.jpg");

Автор: AlexanderI 21.6.2010, 11:56

вот например делаю:

Код


use Image::Magick;
my $image = Image::Magick->new; 
my $x = $image->Read("1.jpg"); 
$x = $image->Resize(geometry=>'132x132^');
$x = $image->Crop(geometry=>'132x132+0+0', gravity=>'center',);
$image->Write("3.jpg");

Фото обрезается, но не по центру. Обрезается правая сторона.
А мне бы хотелось чтобы обрезалось поровну , с лева и с права.

Автор: AlexanderI 21.6.2010, 13:04

Всем спасибо,

Нужно перед Crop добавить строку:

$x = $image->Set(gravity=>'center');

сам догадался smile

Автор: shamber 21.6.2010, 13:32

AlexanderI, приходите еще