为什么在waitfor时候出现pattern match read eof at test_telnet.pl line 63

Aaron.Gao

1. 
   
2. my $telnet_hdl=new Net::Telnet (Timeout => 1800, Prompt => '/[\$%#>:]\s*$/');
   
3. $telnet_hdl->open(Host=>$ip,Timeout=>60);
   
4. $telnet_hdl->login($user, $password);
   
5. ...
   
6. ...some operate
   
7. ...
   
8. $telnet_hdl->print("exit");
   
9. ($cmd_result_msg1,$match1)=$telnet_hdl->waitfor(Match=>'/Connection closed by foreign host./',Timeout=>60);
   
10. print "$cmd_result_msg1";
    
11. print "$match1\n";
    
12. $telnet_hdl->close;
    

复制代码

为什么在waitfor时候出现pattern match read eof at test_telnet.pl line 63
我查了Telnet.pm的waitfor,呵呵 实在是没看懂,谁能帮我解释一下

1. return $self->error("pattern match read eof") if $s->{eofile};

复制代码

返回的pattern match read eof 具体是什么意思,非常感谢

Aaron.Gao

不好意思,我错了
好象直接$telnet_hdl->close;
就可以,不用多余exit

晕啊