Discussion :

[LE NEINDRE]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!

[Mr6]

et pourquoi pas la fonction resize ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LE NEINDRE]

Oui, je vais voir cette fonction aussi.
J'ai trouvé, en attendant la fonction scale :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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