有關telnet的問題?

cch

請問，為何無法telnet或server有問題時就會輸出error message
後中斷程式??要怎麼改才能正常?
#!/usr/bin/perl
    use Net::Telnet ();
    $t = new Net::Telnet (Timeout =>; 10,
                          Prompt =>; '/[\%\$\#\>;] $/');
    $t->;open("cmos1" ;
    $t = eval{
      $t->;login("chark", "chark" or die "login false";
      return $t;
    };

    if($@) {
      print "$@\n";
    } else {
       @lines = $t->;cmd("echo 'login OK'";
       print "@lines";
    }

bytewolf

什么是你想要的正常情况？让程序一直尝试连接？
如果是这样的话，用个死循环：

1. 
   
2. #!/usr/bin/perl
   
3. use Net::Telnet ();
   
4. 
   
5. $t = new Net::Telnet (Timeout =>; 10,
   
6. Prompt =>; '/[\%\$\#\>;] $/');
   
7. 
   
8. while(1){
   
9. eval{
   
10.    $t->;open('cmos1');
    
11.    };
    
12. 
    
13. if($@){
    
14.         warn "Can\'t connect to cmos1\n";
    
15.         next;
    
16. }
    
17. $t = eval{
    
18. $t->;login("chark", "chark") or die "login false";
    
19. return $t;
    
20. };
    
21. 
    
22. if($@) {
    
23. print "$@\n";
    
24. } else {
    
25. @lines = $t->;cmd("echo 'login OK'");
    
26. print "@lines";
    
27. }
    
28. 
    
29. }
    

复制代码

cch

我想要的是寫一個自動測試telnet是否正常可連!
且會報成功否?
我的程式是當無法login時就會錯誤..且無回報!
如何修改?
謝謝!

cch

#!/usr/bin/perl
use Net::Telnet ();

$t = new Net::Telnet (Timeout =>; 10,
#Prompt =>; '/[\%\$\#\>;] $/');
Errmode =>; "die",);
eval{
   $t->;open('op2');
   };

if($@){
   warn "Can\'t connect to op2\n";
   exit;
}
$t = eval{
$t->;login(Name =>;"chark", Password =>; "chark",Prompt =>; '/\/home1\/chark\>; $/') ;
return $t;
};
出現以下的error ?
file2:chark:/home1/chark/TEST>; perl 4.pl
timed-out waiting for command prompt at 4.pl line 16
為何會找不到command prompt  ?
以下是我正常telnet的message
op2 login: chark
Password:
Last login: Wed Jun  9 14:51:34 from file2
Directory: /home1/chark
Wed Jun  9 15:53:15 CST 2004
Directory: /home1/chark
/home1/chark>;

請那位高手救一下!!