使用perl脚本重启ubuntu

305838894

后面发的一次分号忘记写上去了，谢谢九楼的@laputa73和7楼的犀利哥@ooooldman，可以执行了谢谢啊，完整的代码如下

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");
    
12. $exp->soft_close()；

复制代码

yizuwei520

太强了，正在学习呢。真正的系统管理好语言。