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
|
use strict;
use Carp;
use Image::Magick;
my @fichiers_pdf = ('ppr.pdf');
# Conversion des pdf en jpg et suppression des pdf
foreach my $file_pdf (@fichiers_pdf) {
my $image = new Image::Magick;
if ($file_pdf =~/(.+)\.pdf$/i){
my $name_jpg = $1.".jpg";
#conversion pdf to jpg
$image->Read($file_pdf);
my ($largeur,$hauteur) = $image->Get(qw(width height)); #Recupere les dimensions de l'image
$largeur = 5;
$hauteur = ($hauteur - 10);
$image->Annotate(x => $largeur, y => $hauteur,
pointsize => 10,
fill => 'black',
text => 'Nouvelle image'
);
#$image ->Resize(width=>580, height=>400);
$image->Write($name_jpg);
# suppression pdf
#unlink ($file_pdf);
}
} |
Partager