Question

I want to read some PDF document property with Perl. I already have CAM::PDF installed on my system.

Is there an option to use this module to read the properties of a PDF document? If yes could
someone give an example or refer to the relevant subroutine that does this?

Or, should I use another module? If yes which module?

Answer 1

I like the PDF::API2 answer from Sinan Ünür. PDF::API2 is awesome.

I’m the author of CAM::PDF. Sorry I missed this question earlier. CAM::PDF comes with a cmdline tool to extract this sort of data (pdfinfo.pl).

My library does not support this officially, but it’s easy to do if you don’t mind hacking into internals.

#!perl -w                                                                                                                            
use strict;
use CAM::PDF;
my $infile = shift || die 'syntax...';
my $pdf = CAM::PDF->new($infile) || die;
my $info = $pdf->getValue($pdf->{trailer}->{Info});
if ($info) {
    for my $key (sort keys %{$info}) {
        my $value = $info->{$key};
        if ($value->{type} eq 'string') {
            print "$key: $value->{value}\n";
        } else {
            print "$key: <$value->{type}>\n";
        }
    }
}