Si tu veux traiter toues les images d'un repertoire:
/usr/bin/perl -w
use Image::Size
opendir (REP,$nom_du_rep) or die "impossible d'ouvrir ce repertoire:$!";
while (defined ($fichier= readdir (REP)) ) {
if $fichier=~/.+\.(gif||bmp) {
($x,$y)=imgsize($fichier)
print "ce que tu veux";
}
closedir(REP);
reste a l'adapter pour que ce soit recursif sur toute l'arborescence.
Pierre
Arnaud Calvo a �crit :
>
> On 25-Jul-2001 thomas wrote:
> > Le package ImageMagic est ton ami.
> > le programme le plus utile est convert.
>
> Pour la partie "conna�tre la taille des images", je me sers d'un script perl :
>
> ----------------------------
> #!/usr/bin/perl -w
>
> use strict;
> use Image::Size;
>
> use vars qw($x $y);
>
> if (! defined $ARGV[0]) {
> print "Syntaxe : TailleImage.pl fichier1 [fichier2] ... [fichier n]\n\n";
> exit 1
> }
>
> while(<@ARGV>) {
> ($x,$y) = imgsize("$_");
> print "$_ : $x" . "x" . "$y\n"
> }
> ----------------------------
>
> N'oublie pas les guillemets si les noms des images ont des espaces !
> (TailleImage.pl "rep/*jpg")
>
> --
> http://www.calvo-france.com/linuxtips.php (29/06/01)
> ________________________________________________
> A r n a u d C a l v o 47�43'60N 0�31'0W
