将 eps 转换为 pdf 并裁剪空白

Question

我有一个以前使用过的脚本，它可以工作。但是现在不行了（我换了机器）。

将eps文件转换为pds文件

#!/usr/bin/perl

use File::Find::Rule;

my @files = File::Find::Rule->file()
->name( '*.eps' )
->in( './' );

for my $file (@files) {
print "file: $file\n";
system("epstopdf", $file);
}

裁剪空白

#!/usr/bin/perl

use File::Find::Rule;

my @files = File::Find::Rule->file()
->name( '*.pdf' )
->in( './' );

for my $file (@files) {
print "file: $file\n";
system("pdfcrop", $file, $file);
}

但是在运行文件时，只写入文件的名称，并且没有完成操作。 有什么要安装的吗？

Answer 1

您的 Perl 脚本正在尝试运行名为 epstopdf 和 pdfcrop 的外部程序。