Comment mettre à jour les métadonnées PDF avec CAM :: PDF

Question

Comment puis-je ajouter/remplacer les métadonnées du titre et de l'auteur d'un PDF en utilisant CAM::PDF?

Answer 1

Je suis l'auteur de CAM :: PDF. La bibliothèque ne supporte pas ce genre d'édition, mais vous pouvez le faire en creusant dans les internes comme ceci:

#!perl -w 
use strict; 
use CAM::PDF; 
my $infile = shift || die 'syntax...'; 
my $outfile = shift || die 'syntax...'; 
my $pdf = CAM::PDF->new($infile) || die; 
my $info = $pdf->getValue($pdf->{trailer}->{Info}); 
if ($info) { 
    #use Data::Dumper; print Dumper($info);                       
    my $title = $info->{Title}; 
    if ($title) { 
     $title->{value} = 'Foo'; 
     # for a proper implementation, we should mark the holder of $info as dirty...             
     # But cleanoutput ignores dirty flags anyway and writes the whole doc               
     $pdf->cleanoutput($outfile); 
    } 
}