Forum Astuces.divers [Perl] Modifier un PDF avec PERL

Posté par  .
Étiquettes : aucune
0
1
juin
2006
Dernièrement, j'ai eu besoin de modifier un grand nombre de documents PDF, en ajoutant un en-tête et un numéro de page sur chaque page. J'ai pu réaliser cette opération rapidement en utilisant Perl et le module PDF::API2. Voici une version "light" du script Perl que j'ai utilisé : #!/usr/bin/perl use PDF::API2; my $file=shift; my $out_file=shift||"test.pdf"; my $page_cnt=shift||1; my $pdf = PDF::API2->open($file); my $f1=$pdf->corefont('Times-Roman',-encode => "latin1"); my $f2=$pdf->corefont('Times-Italic',-encode => "latin1"); for my $p (1..$pdf->pages()){ my $page=$pdf->openpage($p); $page->add_font($f1); $page->add_font($f2); my $gfx = (…)