Re^2: Retrieve the PDF file description

[roboticus]

in reply to Re: Retrieve the PDF file description
in thread Retrieve the PDF file description

That could be due to the fact that PDF doesn't seem to be a widely-used module. If you really want to use that module, then after reading the thread, I'd suggest dumping a PDF that works and compare it to one that doesn't. Perhaps the problem is that one has a different encoding for the tags or some such.

If you don't mind switching to a different module, here's one that gets the information using PDF::API2:

#!/usr/bin/perl
use strict;
use warnings;
use PDF::API2;
use Data::Dumper;

my $FName = shift // die "Missing filename!";
my $pdf = PDF::API2->open($FName) or die "Can't open PDF file $FName: 
+$!";
my %pdfinfo = $pdf->info;
print "Author is: ", $pdfinfo{Author}, "\n";
print "Title is:  ", $pdfinfo{Title}, "\n";
print "\n\nAll info tags:\n", Dumper(\%pdfinfo);

If I run it on the first handy PDF file on my desktop, I get:

Author is: Texas Instruments, Incorporated [SNAS033,D
]
Title is:  LM4873   Dual 2.1W Audio Amplifier Plus Stereo Headpho
+ne Function (Rev. D)


All info tags:
$VAR1 = {
          'ModDate' => 'D:20121201221441-06\'00\'',
          'Subject' => 'Data Sheet',
          'Creator' => 'TopLeaf 7.6.028',
          'Title' => 'LM4873   Dual 2.1W Audio Amplifier Plus Ste
+reo Headphone Function (Rev. D)',
          'Keywords' => ', SNAS033,SNAS033D',
          'CreationDate' => 'D:20121201221441-06\'00\'',
          'Producer' => 'iText 2.1.7 by 1T3XT',
          'Author' => 'Texas Instruments, Incorporated [SNAS033,D
]'
        };

...roboticus

When your only tool is a hammer, all problems look like your thumb.