Sous Linux, comment changer l'utilisateur en root dans Perl et continuer à exécuter ce script? Comment exporter un proxy en Perl?

Question

Mes scripts perl devraient être capables de changer le compte commun en compte root pendant l'exécution, puis de passer aux commandes restantes. Mais je ne sais pas comment faire:

1. Modification compte root et capable de passer automatiquement l'authentification, je code suivant, mais a échoué.

   system "echo \"$password\" | sudo -S su root"; 
   

2. Capable de continuer à faire le reste scriptsI trouvé lors de l'utilisation des scripts pour changer compte (tout simplement essayer de système « sudo su »;), il est en mesure d'exécuter des scripts de repos

3. que je dois proxy à l'exportation, mais quand je en utilisant le code suivant, il ne fonctionne pas:

   system "export http_proxy=http://proxy.companyname.com:8080"; 
   

Answer 1

peut-être essayer des accents graves?

my $sudo = `echo \"$password\" | sudo -S su root`; 

également similaire pour l'exportation.

my $exp = `export http_proxy=http://proxy.companyname.com:8080`; 

Answer 2

Si vous devez exécuter d'autres scripts à exécuter avec la racine et vous avez module ssh Perl installé, vous pouvez ouvrir une session ssh au localhost avec l'utilisateur root et lancez l'exécution de vos scripts à partir de là.

my $ssh = Net::SSH::Perl->new("host1"); 
$ssh->login("root", "pass1"); 
$ssh->cmd("sh /opt/...");