使用pdftk命令在命令行中加密PDF文件

Question

我厌倦了使用pdftk执行PDF文件加密并安装了PDF :: Tk [pdf工具包（pdftk）的Perl集成]的依赖模块，但是如下所述收到错误。任何人都可以帮我解决以下问题。

源代码：test.pl

use PDF::Tk;
system(pdftk input.pdf output outPDF.pdf owner_pw foopass) or die "Error!!!!!!!!!!\n";

输出：

Can't locate object method "pdftk" via package "input" (perhaps you forgot to load "input"?) at test.pl line 2.

Answer 1

使用PDF::Tk模块函数代替system。 PDF::Tk是pdftk实用程序的包装器，因此使用system是它避免使用的主题：

use PDF::Tk;
my $doc=PDF::Tk->new();
$doc->call_pdftk('input.pdf', 'outPDF.pdf', 'owner_pw', 'foopass');

注意： PDF :: Tk构造函数可用于设置pdftk二进制文件。它的默认值是“/ usr / bin / pdftk”

my $doc=PDF::Tk->new({pdftk=>'/other/path/to/bin/pdftk'});