linux - 在 Linux 中，如何在 perl 中将用户更改为 root 并继续运行此脚本？如何在 perl 中导出代理？

Question

我的 perl 脚本应该能够在执行期间将普通帐户更改为 root 帐户，然后继续执行其余命令。但我不知道该怎么做:

1. 改成root账户后可以自动通过认证，我用了下面的代码，但是失败了。

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

2. 能够继续执行我在使用脚本更改帐户时发现的其余脚本(只需尝试系统“sudo su”；)，它无法执行其余脚本

3. 我需要导出代理，但是当我使用下面的代码时，它不起作用:

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

Answer 1

如果您必须执行其他脚本以使用 root 执行并且您安装了 perl ssh 模块，那么您可以使用 root 用户打开到本地主机的 ssh session 并从那里开始执行您的脚本。

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