Problem with net::telnet

joyeux has asked for the wisdom of the Perl Monks concerning the following question:

This is my code

use Net::Telnet

$t=new Net::Telnet(Timeout =>100,
                   Prompt => '/[\$?>:#\]]*$/');

if($t->open('192.168.1.200'))

{
  print "connected";

}
else
{
  print "not connected";
}
# if i give wrong user name and password also it didnt<br/>
 show #error msg
$t->login('test','test123');
@lines=$t->cmd("ls");
# always prints 1
$t->close;
[download]

could plz someone help me

Comment on Problem with net::telnet Download Code

Replies are listed 'Best First'.
Re: Problem with net::telnet by 2teez (Vicar) on Dec 06, 2012 at 05:39 UTC
Please, could you insert your codes within the tag <code>.You could also see this How do I post a question effectively? === UPDATE === Please, if I may suggest that you always use strict and warnings in your scripts. Moreover, you can check EXAMPLE of this module usage in the Example section of the module. If you tell me, I'll forget. If you show me, I'll remember. if you involve me, I'll understand. --- Author unknown to me	[reply]

Replies are listed 'Best First'.

Re: Problem with net::telnet
by 2teez (Vicar) on Dec 06, 2012 at 05:39 UTC

Please, could you insert your codes within the tag <code>.You could also see this How do I post a question effectively?
=== UPDATE ===
Please, if I may suggest that you always use strict and warnings in your scripts.
Moreover, you can check EXAMPLE of this module usage in the Example section of the module.

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

[reply]

Back to Seekers of Perl Wisdom