Discussion :

[Arioch]

Bonjour,

ça fait une éternité que je n'étais plus passé ici mais je reprend du service en Perl depuis peu

Pour des besoins d'ordre professionnel, je dois marquer à la volée des fichiers PDF.

Pour ce faire, j'utilise la lib PDF::API2 mais pour certains PDF, la tentative de marquage échoue et j'ai ceci comme message d'erreur :

erreur sur TOTO.PDF : The PDF file uses a cross-reference stream, which is not yet supported (see Known Issues in the PDF::API2 documentation) at C:/Perl/site/lib/PDF/API2/Basic/PDF/File.pm line 1048.

Et effectivement, en installant cette lib, j'avais bien vu qu'elle ne gérait pas les flux de références croisées (kézako ?).

Je tourne sous Perl 5.16 et dans PPM, je n'ai pas vu d'autres libs aptes à me marquer les PDF récalcitrants.

Je pensais ruser en convertissant mes PDF rebelles en postscript, puis rebasculer du postscript vers du PDF mais j'ai la désagréable impression de devoir développer un missile thermo nucléaire pour éradiquer un moustique mort

Auriez-vous une piste à me proposer ?

Au boulot, on me demande un taux de réussite supérieur à 80 %. J'arrive péniblement à 58 % sur les centaines de fichiers PDF représentatifs de ce que mon programme devra marquer par la suite.

Coucou à Djibril et Jedai s'ils sont toujours dans les parages !

[djibril]

Salut Arioch,

Installe ImageMagick peut-être. Tu pourras en ligne de commande convertir tes PDF en postscript.
Sinon, tu as l'application gratuite pdfsam-starter qui te permet de manipuler facilement des PDF.

[Arioch]

Merci pour tes propositions Djibril mais elles vont m'amener dans une impasse.

Mon script devra à terme être déployé sur notre réseau interne afin d'être accessible à plusieurs personnes qui ont Perl installé sur leur disque dur.

Je vais me débrouiller pour déposer les fichiers nécessaires de PDF::API2 avec le script mais ne peux me permettre de demander à notre département informatique de déployer un quelconque logiciel sur leurs postes.

[djibril]

ah ok.
Sinon, tu entends quoi par marquage ?

[Arioch]

C'est juste un texte personnalisé que je dois placer en haut à gauche de chaque page de mes PDF.

J'ai bien une autre astuce mais elle ne me plait guère...

Comme j'utilise la fonction eval() au moment où je tente de marquer mes fichiers, il m'est très facile de lancer un convertisseur PDF en PostScript si jamais le marquage a échoué.

J'ai remarqué que le distiller Acrobat d'Adobe, quand configuré pour refaire un PDF au standard 1.5 de la lib PDF, me concocte un fichier PDF qui se marque presque à chaque fois.

Donc, en générant à la volée des fichiers PostScript, dès qu'il y a un soucis, ça me permet ensuite de gérer les fichiers problématiques via le distiller.

Mais bon, sur 431 PDF testés en un lot, 249 ne se marquent pas...

[djibril]

Hum, ça fait des lustres que je n'ai pas manipulé des PDF en perl.

Avec PDF::API2

This module does not work with perl's -l command-line switch.

PDFs using cross-reference streams instead of cross-reference tables are not yet supported. Cross-reference streams were added as an option in version 1.5 of the PDF spec, but were only used infrequently until Adobe Acrobat 9 started using them by default. A patch would be welcome -- see the PDF 1.7 specification, sections 7.5.4 and 7.5.8 for implementation details.

CAM::PDF et PDF::Reuse

Je ne les ai jamais jamais utilisé, à voir aussi.