郁闷阿！谁知道perl的expect为什么不能交互阿！

luojiangming

请大家帮看看这段代码，是自动修改密码的程序
#!/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:，也没有自动的输入密码，为什么会这样呢？有那位大虾知道是为什么呢？谢谢告之了！！！

luojiangming

请大家帮看看这段代码，是自动修改密码的程序
#!/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:，也没有自动的输入密码，为什么会这样呢？有那位大虾知道是为什么呢？谢谢告之了！！！