Bonsoir,
je part d'un pdf qui contient une image de taille 16200 x 1200 au recto et un pdf dans le verso. Il y a une image et un pdf qui ont été ajouté a ce pdf. Lorsque je fais l'extraction de cette image via le code suivant :
L'image en sortie pour les 2 faces de mon pdf est 397 x 281...
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
23
24
25
26
27
28
29 #!/usr/local/bin/perl use Image::Magick; my @files = ("test1.pdf", "test2.pdf"); foreach my $fichier (@files) { $image = Image::Magick->new; $x = $image->Read($fichier); warn "$x" if "$x"; $x = $image->Write($fichier.".jpg"); warn "$x" if "$x"; }
Il y a une très grosse perte d'information pour l'image, comment est-ce que je peux faire pour avoir une image en sortie qui se rapproche le plus de la taille avant extraction?
Merci
Partager