Forum Webscript.Ru

Программирование => Perl => Тема начата: Hob от 30 Августа 2006, 18:45:55

Название: Resize картинки
Отправлено: Hob от 30 Августа 2006, 18:45:55

Здравствуйте,

не подскажите, в чём может быть проблема?

закачиваю на сервер картинку, далее пытаюсь ее уменьшить с помощью:

my ($ix, $iy) = (80, 80);

my $thumb = Image::Magick->new;
$thumb->Read("$file");
   
my ($ox, $oy, $oc, $ic, $nx, $ny, $geo);
($ox,$oy) = $thumb->Get(\'columns\',\'height\');
if (($ox > $ix)||($oy > $iy)) {
 $oc = $ox/$oy; $ic = $ix/$iy;
 if ($oc < $ic) {$ny = $iy; $nx = int(($ox/$oy)*$iy);}
 elsif ($oc > $ic) {$nx = $ix; $ny = int(($oy/$ox)*$ix);}
 else {$nx = $ix; $ny = $iy;}
}
else {$nx=$ox;$ny=$oy;}

$geo = \'geometry\';
$thumb->Resize(geometry=>$geo, width=>$nx, height=>$ny);
$file = $path_image."i".$tv[1].".".$tv[0];

$thumb->Write("$file");

Картинка уменьшается на пару кб, но размер не меняется.

Название: Resize картинки
Отправлено: Hob от 30 Августа 2006, 19:00:48

сори, вроде разобрался

заменил $geo = "geometry"; на $geo = $nx.\'x\'.$ny;