Как скрыть вывод команды, запущенной внутри sytem()?

Question

Я просмотрел все и нашел множество ответов, и после долгих проб и ошибок я пришел к такому выводу: я не знаю.

Я бегу вещь в Perl:

my $command = sprintf('commandHereDoingSCPishThingsThatHasToRunInMyShell', options, options, options); 
system($command); 

Когда я бегу мой сценарий в моем окне терминала, я вижу вывод команды внутри функции Sprintf().

Я хотел бы, чтобы выход был перенаправлен в файл и не нужно было видеть выполнение программы в окне терминала.

Спасибо!

Answer 1

Исходное использование системы perl() не рекомендуется, потому что нет необходимости обнаруживать ошибки и вызывать соответствующее сообщение об ошибке. Рассмотрите возможность использования IPC::System::Simple. Поскольку вы хотите захватить вывод, используйте его capture().

use IPC::System::Simple 'capture'; 

my $output = capture($command); # dies if command fails; catch this with eval if necessary 
File::Slurp::write_file('somefile', $output); 

В качестве альтернативы, просто перенаправить вывод в файл в вашей команде:

use IPC::System::Simple 'system'; 
system("$command >somefile");