Ответ.

Взаимодействие с внешними программами — критически важная особенность Perl, унаследованная с момента создания языка в 1987 году для задач системного администрирования и автоматизации shell-рутин. Perl предоставляет сразу несколько способов выполнить внешнюю команду: оператор system, обратные апострофы (``) или qx//, функция open с пайпом, и модульные обёртки типа IPC::Open3.

Основная проблема при запуске внешних процессов — корректное получение вывода (stdout и stderr), обработка ошибок запуска, безопасность параметров (во избежание инъекций), а также отличие между синхронным и асинхронным исполнением.

Решение заключается в выборе корректного способа под конкретную задачу. Для простых команд используют system или обратные апострофы, для сложных случаев — IPC::* модули:

Пример кода (чтение вывода команды и обработка ошибок):

my $command = 'ls -l /tmp';
my $output = qx{$command};
if ($? == -1) {
    die "Ошибка запуска: $!";
} elsif ($? & 127) {
    warn sprintf "Команда завершилась сигналом %d", ($? & 127);
} else {
    print "Вывод: $output";
}

Ключевые особенности:

Возможно одновременное взаимодействие с stdin, stdout, stderr через open и IPC::Open3.
Не все способы обеспечивают возврат ошибки, или позволяют безопасно подставлять переменные в команду.
Для асинхронных сценариев необходимо изучать модули типа IPC::Run, Proc::Background и контролировать PID процесса.

Вопросы с подвохом.

Чем отличается system от exec в Perl?

Ответ: system запускает команду во внешнем процессе и возвращает управление Perl после завершения, тогда как exec полностью заменяет текущий процесс Perl выполняемой программой, Perl-код после не выполняется.

Пример:

system('echo Hello');
exec('ls', '-l'); # Всё, Perl-скрипт заменён ls, дальше Perl не работает

Можно ли безопасно прокидывать пользовательские переменные в shell-команды?

Ответ: Только при использовании списка аргументов (не строки) и избегая интерполяции в shell. Иначе возможна командная инъекция.

# Безопасно:
system("ls", "-l", $user_supplied_dir);
# Опасно:
system("ls -l $user_supplied_dir");

Как можно получить как stdout, так и stderr от внешней команды?

Ответ: Надёжный способ — использовать IPC::Open3 или перенаправить stderr в stdout на уровне shell:

my $out = qx{ls /notexists 2>&1};

или через IPC::Open3 (более универсальный и тонкий способ).

Типовые ошибки и анти-паттерны

Передача неэкранированных переменных в shell-строки (инъекции).
Ожидание возврата значения из system (он возвращает статус, а не вывод).
Смешение stdout и stderr без явного контроля.

Пример из жизни

Негативный кейс

Админ подставляет через system("rm -rf $dir") значение, введённое пользователем.

Плюсы:

Просто и быстро реализовано.

Минусы:

Возможна критическая инъекция (например, в $dir пришло "; rm -rf /;") — вся система удалена.

Позитивный кейс

Используется system('rm', '-rf', $dir), $dir валидируется, поставлено логирование.

Плюсы:

Безопасность, контроль ошибок, минимальные риски.

Минусы:

Требует чуть больше кода, проверки, тестов.