Perl，Can'；t根据拖车阅读PDF对照部分

我正在尝试读取pdf文件的内容。这是密码

 4 use warnings;
 5 use strict;
 6
 7 use PDF;
 8
 9 print "*" x 30, "\n";
10 my $filename = shift;
11 print "Filename: $filename\n";
12
13 my $pdf = PDF->new($filename);

这是输出：

******************************
Filename: Calabasas, LA County June 2012 monthly-new-projects-report.pdf
Can't read cross-reference section, according to trailer

当我在谷歌上冲浪时，我发现这与文件损坏有关。但我仍然能够用pdf阅读器打开它

---

我应该尝试不同的Perl模块，还是我的代码被破坏了？

不知道这是您想要的（纯Perl解决方案还是windows解决方案），但在Unix中，我调用“pdftotext”为我进行转换，然后我读取了文件：

open IN, '-|', '/usr/bin/pdftotext', $file, '-' 
    or die "couldn't open $file $!\n";

---

希望有帮助

我认为PDF已经过时了。我使用了CAM:：PDF，它工作得很好。