https://m.opennet.me/openforum/vsluhforumID3/3913.html use Image::Magick;<br>my $image = Image::Magick-&gt;new; #новый проект<br>my $x = $image-&gt;Read("photo.jpg"); #открываем файл<br>my ($ox,$oy)=$image-&gt;Get('base-columns','base-rows'); #определяем ширину и высоту изображения<br>my $nx=int(($ox/$oy)*150); #вычисляем ширину, если высоту сделать 150<br>$image-&gt;Resize(geometry=&gt;geometry, width=&gt;$nx, height=&gt;150); #Делаем resize (изменения размера)<br>if($nx &gt; 200) { #Если ширина получилась больше 200<br> my $nnx = int(($nx-200)/2); #Вычисляем откуда нам резать<br> $image-&gt;Crop(x=&gt;$nnx, y=&gt;0); #Задаем откуда будем резать<br> $image-&gt;Crop('200x150'); #С того места вырезаем 200х150<br>}<br>$x = $image-&gt;Write("photo.jpg"); #Сохраняем изображение.<br><br>URL: http://www.webscript.ru/stories/02/11/11/9439190<br>Обсуждается: http://www.opennet.ru/tips/info/404.shtml<br> https://m.opennet.me/openforum/vsluhforumID3/3913.html#4 Mon, 08 Oct 2007 17:02:37 GMT Кавычки тоже надо:<br>_Должны выглядеть как:<br>$image-&gt;Crop(x=&gt;$nnx, y=&gt;0, geometry=&gt;'200x150');<br> https://m.opennet.me/openforum/vsluhforumID3/3913.html#3 Fri, 05 May 2006 09:16:05 GMT И еще, строки:<br>$image-&gt;Crop(x=&gt;$nnx, y=&gt;0);<br>$image-&gt;Crop('200x150');<br>Должны выглядеть как:<br>$image-&gt;Crop(x=&gt;$nnx, y=&gt;0, geometry=&gt;200x150);<br> https://m.opennet.me/openforum/vsluhforumID3/3913.html#2 Thu, 04 May 2006 08:11:53 GMT Ниче не баг.<br>Note, that the geometry parameter is a short cut for the width and height parameters (e.g. geometry=&gt;'106x80' is equivalent to width=&gt;106, height=&gt;80 ). https://m.opennet.me/openforum/vsluhforumID3/3913.html#1 Mon, 28 Jun 2004 07:44:01 GMT В коде присутствует ошибка<br><br>$image-&gt;Resize(geometry=&gt;geometry, width=&gt;$nx, height=&gt;150);<br><br>должно выглядить как<br><br>$image-&gt;Resize(width=&gt;$nx, height=&gt;150);<br><br>это баг самого Magick'a .