Лучший способ запуска внешнего приложения только в том случае, если он существует

Question

У меня есть скрипт Perl, который как один из его заключительных шагов создает сжатую версию созданного им файла. Из-за некоторых неудачных настроек мы не можем гарантировать, что у конкретного клиента будет определенная функция сжатия. Я хочу, чтобы положить что-то вроде этого вместе:

if ($has_jar) { 
    system("jar -c $compressed_file $infile"); 
} 
elsif ($has_zip) { 
    system("zip -j $compressed_file $infile"); 
} 
else { 
    copy($infile, $compressed_file); 
} 

Где, если они не имеют либо из приложений сжатия, она будет просто скопировать файл в расположение сжатого файла без сжатия.

Моя липкая калитка здесь заключается в том, что я не совсем уверен, что лучший способ определить, есть ли у них банка или почтовый индекс. Похоже, я могу использовать exec() вместо system() и воспользоваться тем фактом, что он возвращается только в случае сбоя, но сценарий действительно делает несколько вещей после этого, Работа.

Мне также нужно, чтобы это было переносным решением, так как этот скрипт работает как на Windows, так и на разных дистрибутивах Unix. Заранее спасибо.

Answer 1

Просмотреть мои multi-which.

Answer 2

Просмотрите каталоги, указанные в переменной среды PATH.

Answer 3

Для систем на базе * NIX, это должно работать:

my $has_jar = `which jar` ne ''; 

Это потенциально может работать на Windows, а также, если вы включите which.

В качестве альтернативы, вы можете попробовать команду, предложенную this answer,

my $has_jar = `for %i in (jar.exe) do @echo. %~$PATH:i` ne ''; 

Это, скорее всего, не возвращает «», если он не находит, однако, но у меня нет Perl доступны на Windows, чтобы проверить его.

Answer 4

Обычно такие вещи не исчезают из системы, поэтому я предлагаю проверить наличие инструментов во время установки/установки и сохранить тот, который будет использоваться в конфигурации.

Answer 5

Как просто попробуйте запустить программу. Если он не может быть запущен, то вы знаете, что есть проблема.

Answer 6

Почему бы не использовать Archive::Zip package для сжатия, исключив необходимость в внешней программе?

Answer 7

Думаю, ваш лучший выбор File::Which.

Answer 8

Есть несколько вещей, чтобы думать о том, если вы собираетесь сделать это:

• Использование системы и Exec в виде списка, так что оболочка не получает шанс интерпретировать специальные символы.

• Можете ли вы сохранить это как конфигурацию вместо того, чтобы помещать ее в код? Посмотрите, например, как CPAN.pm.

• Откуда вы знаете, что используете то, что считаете нужным? Если кто-то делает троянский конь с тем же именем, ваша программа будет счастливо исполнить его?Обратите внимание, что использование PATH, как указано в Sinan's multi, которое все еще имеет эту проблему, поскольку оно зависит от пользователя, устанавливающего PATH.