perl - 如何使用 Perl 和 CAM::PDF 读取 PDF 文档属性？

Question

我想用 Perl 读取一些 PDF 文档属性。我已经有CAM::PDF安装在我的系统上。

是否可以选择使用此模块来读取 PDF 文档的属性？如果是的话可以有人给出一个例子或引用执行此操作的相关子例程吗？

或者，我应该使用另一个模块吗？如果是哪个模块？

Answer 1

我喜欢 Sinan Ünür 的 PDF::API2 答案。 PDF::API2 非常棒。

我是 CAM::PDF 的作者。抱歉我之前错过了这个问题。 CAM::PDF 附带了一个命令行工具来提取此类数据 (pdfinfo.pl)。

我的库并不正式支持这一点，但如果您不介意侵入内部，这很容易做到。

#!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";
        }
    }
}