|
请大家帮看看这段代码,是自动修改密码的程序
#!/user/bin/perl -w
use expect;
$password = <>;
$start = expect->spawn(30,"passwd");
$start->expect(30,"Enter new unix password:");
print $start "$password\r";
$start->expect(30,"Retype new unix password:");
print $start "$password\r";
这个程序在执行完
print $start "$password\r"
以后,居然就没有反映了,没有自动提示Retype new unix password:,也没有自动的输入密码,为什么会这样呢?有那位大虾知道是为什么呢?谢谢告之了!!! |
|