Здравствуйте,
не подскажите, в чём может быть проблема?
закачиваю на сервер картинку, далее пытаюсь ее уменьшить с помощью:
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");
Картинка уменьшается на пару кб, но размер не меняется.
