使用perl脚本重启ubuntu

305838894

想写一个perl脚本重启ubuntu，但是我不是root用户登陆的，当执行sudo reboot的时间需要输入密码，我如何使用perl自动送入密码呢，不需要人工干预的，谢谢啊

ooooldman

expect  可以满足你的要求

305838894

回复 2# ooooldman
我用Expect模块写了一段，但是执行的时间提示出问题，代码如下

1. #!/usr/bin/perl
   
2. 
   
3. use Expect
   
4. 
   
5. my $pwd = "king2011";
   
6. my $cmd = "sudo reboot";
   
7. my $timeout = 5;
   
8. $exp = Expect->spawn("$cmd") or die "cant't spawn $cmd : $!\n";
   
9. $exp->log_stdout(0);
   
10. $exp->expect($timeout,-re=>'[Pp]assword:');
    
11. $exp->send("$pwd\n");

复制代码

报错信息如下

1. "king2011" is not exported by the Expect module
   
2. Can't continue after import errors at reboot.pl line 5
   
3. BEGIN failed--compilation aborted at reboot.pl line 5.

复制代码

大哥帮忙看下这个是社么错误

   

zhlong8

use 那一行少了分号。

ttcn_cu

http://www.nenew.net/nopasswd-exec-sudo-sudoers.html

305838894

回复 4# zhlong8
哥貌似还是有点问题，可以帮忙看下么，我把第九行打开，可以看见到需要输入密码的界面但是在这个界面停了一下就没事了 感觉没做什么操作，没重启代码是

1. #!/usr/bin/perl
   
2. 
   
3. use Expect;
   
4. 
   
5. my $pwd = "king2011";
   
6. my $cmd = "sudo reboot";
   
7. my $timeout = 5;
   
8. $exp = Expect->spawn("$cmd") or die "cant't spawn $cmd : $!\n";
   
9. $exp->log_stdout(0);
   
10. $exp->expect($timeout,-re=>'[Pp]assword:');
    
11. $exp->send("$pwd\n");

复制代码

ooooldman

use Expect; 你后面没分号

mcshell

分号，分号，分号，分号，分号，分号，分号，分号，分号，分号，分号，分号，分号，分号，分号，分号，分号。这下能看到了吧

laputa73

soft_close()
不然还没发出去，程序就退了

beylia

用Sudo模块不好么……