Extraction d'une image d'un pdf
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 :
Code:
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";
} |
L'image en sortie pour les 2 faces de mon pdf est 397 x 281...
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
