perl – 如何使用CAM :: PDF更新PDF元数据
发布时间:2020-12-16 06:16:45 所属栏目:大数据 来源:网络整理
导读:如何使用 CAM::PDF 添加/覆盖PDF的标题和作者元数据? 解决方法 我是CAM :: PDF的作者.该库不支持这种编辑,但您可以通过深入研究这样的内部结构: #!perl -wuse strict;use CAM::PDF;my $infile = shift || die 'syntax...';my $outfile = shift || die 'syn
如何使用
CAM::PDF 添加/覆盖PDF的标题和作者元数据?
解决方法
我是CAM :: PDF的作者.该库不支持这种编辑,但您可以通过深入研究这样的内部结构:
#!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); } } (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |