linux - Perl，执行多行的 linux shell 命令，需要身份验证？

Question

我一直在四处寻找，但无法弄清楚。我想出了如何执行 perl 的 shell 脚本，例如:

#!/usr/bin/perl
$cmd = "nautilus";
system $cmd;

但是，我想从 perl 执行一个 shell 脚本，它会在命令行上执行类似这样的操作:

su
$password
nautilus

所以它会变成 root，然后打开 nautilus 浏览器。当我通过单独执行每个命令来尝试这个时，如下所示，它不起作用。我将不胜感激任何关于正确完成方法的建议这个..谢谢

$cmd = "su";
system $cmd;
$cmd = $password;
system $cmd;
$cmd = "nautilus";
system $cmd;

Answer 1

查看 Expect模块。它会做你想做的。 (它应该已经包含在最后几个 Perl 版本中)