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);
}
} |
