Как я могу запустить и завершить команду script () linux из Perl?

Question

#!/usr/bin/perl
$sim = "multiq";
`make SCHED=$sim`;
`script > scripter`;
`echo hi`;
print pack("c", 04);
~

Этот скрипт зависает при вызове скрипта. Не уверен, как заставить скрипт perl продолжать работать.

Answer 1

Обратите внимание, что обратные галочки (‘‘) запускают команду и возвращают ее вывод. Если вы собираетесь игнорировать вывод, используйте system как в

system("make SCHED=$sim") == 0 or die "$0: make exited " . ($? >> 8)

Если вы хотите запустить и забыть программу (то есть запустить ее в фоновом режиме, не заботясь о том, когда она завершится), вы можете использовать

system("script >scripter &");

Answer 2

вы можете захотеть взглянуть на Ожидайте для управления интерактивным сеансом

Answer 3

Вы должны запустить все это в одном дочернем процессе, если вы хотите, чтобы он все взаимодействовал. См. perlipc для различных способов справиться с этим.

Answer 4

backticks (‘‘) запускают команду и возвращают ее вывод. Таким образом, вы можете сохранить и управлять ею дальше. Если вы хотите игнорировать вывод, используйте system (). Также, если вы хотите запустить какой-либо процесс в фоновом режиме, используйте & в префиксе процесса. Например, вы хотите запустить Gimp, используя ваш скрипт, просто скажите

system("gimp &");