将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的外部程序。