1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
| #!/usr/bin/perl
# use module
use strict;
use Image::Magick;
#convert -resample 300x300 -units PixelsPerInch image.jpg out.jpg
sub agrandissementDpi
{
my ($file, $dpi) = @_;
my $racine = $file;
$racine =~ s/(.+)\.jpg$/$1/ ;
#Création d'une image
my $im = Image::Magick->new();
# Lecture de l'image
if ( my $err = $im->Read($file) )
{
print STDERR "Erreur $err sur lecture $file\n" ;
return ;
}
$im->Resample($dpi."x".$dpi);
$im->Set(units=>"PixelPerInch");
my $tmp = $racine."-tmp.jpg";
# Ecriture de l'image
if ( my $s = $im->Write(filename => $tmp))
{
print STDERR "Erreur $s sur ecriture $tmp\n" ;
return ;
}
}
sub programme
{
my @tab = ();
foreach my $fichier (glob("./*.jpg"))
{
if ( $fichier !~ /.+\.jpg/ )
{
next;
}
else
{
agrandissementDpi($fichier,300);
}
}
}
programme(); |
Partager