Keskustelut - Python / Ruby / Perl - perlmagick ongelma


netteri 19:44 29.3.09 
Elikkäs sain tuossa vasta siirrettyä PHP-scriptistäni toiminnallisuutta PERL-muotoon, mutta yhdelle riville en löytänyt vastinetta. Eli ongelma on tunnistaa onko kuva animoitu vai ei ja jos on niin jollain tapaa ottaa siitä eka frame ja käyttää sitä kyseisen function loppuun asti. Muissa tapauksissahan pikkukuvat tulevat näyttämään vääränlaisilta.

PHP:ssä käytin tämmöistä purkkaa:

PHP
      $image = new Imagick($source);
      if ($image->getNumberImages() > 1) {$image=$image->clone();}
      $image->thumbnailImage($new_w, $new_h);
      $image->writeImage($dest);
 


PERL:stä en ole löytänyt vielä vastinetta tuolle getNumberImages kikkareelle.
editoitu: 22:36 29.3.09
netteri 22:34 29.3.09 
Löytyipäs! Kiitoksia vaivaa nähneille!

Perl
  $image = new Image::Magick;
  $image->Read($source);
  if ($#$image>=1) {$image=$image->[0];}
  $image->Resize(width=>$new_w,height=>$new_h);
  $image->Write("jpg:".$dest);
 


EDIT: korjattu