Использование perl для запуска более одной системной команды в строке

Question

Я пытаюсь запустить некоторые вещи на сервере моей команды и с некоторыми трудностями.

Для части того, что я использую для написания сценариев, мне нужно, чтобы пользователь переключил пользователя через sudo su APPUSER, а затем выполнил несколько команд. Однако sudo скорее заблокирован на нашем сервере, и я не могу запустить что-то вроде: sudo su APPUSER -c COMMAND. Я попросил, чтобы это было исправлено, системные администраторы всегда говорят «нет».

В настоящее время я использую perl для создания сценариев, и мне нужно заглянуть в appuser вместо пользователя разработчика, чтобы запустить около трех команд. Я могу сделать это в командной строке, выполнив каждую команду подряд, но я не знаю, как получить perl для этого.

Как я могу заставить perl выполнить более одной команды в командной строке так, чтобы она не отбрасывала оболочку/состояние после предыдущего выполнения? то есть выполнение нескольких вызовов system не работает.

Answer 1

Не работает ли это?

system("sudo su APPUSER && command1 && command2"); 

Answer 2

Я нашел решение.

Открыть процесс Баш и читать и писать:

#!/usr/bin/perl 
use strict; 
use warnings; 

open(BASH, "|-", "bash"); 

print BASH "sudo su APPUSER\n"; 
print BASH "touch /home/APPUSER/sudobashtest\n"; 
close(BASH);