|
PDF::Reuse si conferma come un modulo meravigliosamente utile (ne avevo già parlato qui). L'altro giorno dovevo inviare al commercialista un po' di cartaccia in formato PDF, ed ho pensato di aggregare il tutto in un unico file per semplificargli la vita facendogli fare una sola stampa. Il programmino di unione è ridotto all'osso ma assolve bene il suo compito:
#!/usr/bin/perl
use strict;
use warnings;
use PDF::Reuse;
prFile(); # Inizializza il file PDF su STDOUT
prDoc($_) for @ARGV; # Inserisce tutte le pagine da tutti i file
prEnd(); # Chiude il file PDF
__END__
Utilizzo:
pdfjoin.pl file1.pdf file2.pdf ... fileN.pdf > aggregato.pdf
Uscita sullo standard output, una redirezione e voilà!
Inviato da polettix alle 01:52
| Commenti (4)
| 
Associazione
Documenti
Eventi
Community
Blog
Link
