perl – 如何使用CAM :: PDF更新PDF元数据

概述如何使用 CAM::PDF添加/覆盖PDF的标题和作者元数据？ 我是CAM :: PDF的作者.该库不支持这种编辑,但您可以通过深入研究这样的内部结构： #!perl -wuse strict;use CAM::PDF;my $infile = shift || die 'syntax...';my $outfile = shift || die 'syntax...';my $pdf 如何使用 CAM::PDF添加/覆盖pdf的标题和作者元数据？解决方法 我是CAM :: pdf的作者.该库不支持这种编辑,但您可以通过深入研究这样的内部结构：

#!perl -wuse 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);    }}

总结

以上是内存溢出为你收集整理的perl – 如何使用CAM :: PDF更新PDF元数据全部内容，希望文章能够帮你解决perl – 如何使用CAM :: PDF更新PDF元数据所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。