我一直在环顾四周,但无法弄清楚..我想出了如何执行shell脚本的perl执行,例如：

#!/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;

解决方法:

检出Expect模块.它会做您想要的. (它应该已经包含在最近的几个Perl版本中)