Net::Telnet question on perl.

mosh · 08-10-2004, 02:43 AM

Hi All,
Pls. need your help.

I'm using Net::Telnet module on perl inorder to make a telnet connection to device:

...
$telnet= new Net::Telnet(Host=>5.1.1.11,Port=>9000,Timeout=>10);
...

Now, if the Net::telnet succeeded, it's great, but if it failed the script dies after timeout of 10 seconds, and I would like the perl script to go on after this T.O.
Anyone have an idea how to do it, while displaying an error message ilke FAIL to the screen ?

Thanks a lot,
Mush.

Cedrik · 08-10-2004, 04:32 AM

try :

$telnet= new Net::Telnet(Host=>"5.1.1.11", Port=>"9000",Timeout=>10, Errmode =>"return");

$msg = $telnet->errmsg();
if( $msg ) { print "$msg\n"; }

mosh · 08-10-2004, 07:49 AM

Thanks !

I tried it, and when it supposed to fail, the error that displayed was "Can't call method "errmsg" on an undefined value".

Note that, when the Net-Telnet should success, the previous message didn't appear.
What is the problem ?

Cedrik · 08-10-2004, 09:43 AM

Try :

$telnet= new Net::Telnet(Port=>"9000",Timeout=>10, Errmode =>"return");
$telnet->open("5.1.1.11");

$msg = $telnet->errmsg();
if( $msg ) { print "$msg\n"; }