Utilisation de Image::Magick

Version imprimable

Bonjour à tous !

J'essaie d'utiliser le module Image::Magick pour redimensionner des photos.
Je voudrais en fait en faire des vignettes.

Mais je butte je ne sais pas quoi utiliser pour redimensionner, alléger du moins, pour faire des vignettes de 40-60 Ko.

J'ai commencer un script mais bloque:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 #c:\perl\bin\perl.exe use Image::Magick; $rep="D\:\\documents\\photos\\"; opendir(REP,$rep) or die "error $!"; @photos_big=grep{$_ ne '.' && $_ ne '..' && $_=~/\.JPG$/ } readdir REP; closedir(REP); foreach(@photos_big) { my $image=new Image::Magick; my $miniature=$_; $miniature=~s/\.JPG$/_small\.jpg/; $image->Read($rep.$_); $min=$image->Clone(); #$min->Transform(crop=>'100x100'); ????????????? $min->Write(filename=>$rep.$miniature); print $_." resized into ".$miniature."\n"; }
La doc sur CPAN ou plutôt vers laquelle CPAN renvoie est très fournie et je me perds un peu.

Quelqu'un a t'il déjà essayer de l'utiliser ? Connaissez vous un moyen d'arriver à ce que je veux faire ?

Merci pour votre aide et bonne après midi !!!

et pourquoi pas la fonction resize ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Resize :
geometry=>geometry, 
width=>integer, 
height=>integer, 
filter=>{Point, Box, 
           Triangle, 
           Hermite, 
           Hanning, 
           Hamming, 
           Blackman, 
           Gaussian, 
           Quadratic, 
           Cubic, 
           Catrom, 
           Mitchell, 
           Lanczos, 
           Bessel, 
           Sinc}, 
support=>double
 
scale image to desired size. Specify support > 1 for blurry or < 1 for sharp

18/05/2006, 15h13
LE NEINDRE
Oui, je vais voir cette fonction aussi.
J'ai trouvé, en attendant la fonction scale :
Code:

1 2 $min->Scale(geometry=>'1024x768');
qui a l'air de convenir.

Entre ces deux fonctions, je crois bioen que je peux mettre résolu !!

Merci bien Mr6