У меня есть скрипт, который раньше использовался, и он работал. Но теперь это не работает (я изменил машину).
для преобразования 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);
}
Но когда при запуске файлов пишутся только имена файлов, а действие не выполняется. Есть что установить?