Shell Programming and Scripting

I tried use the backslash character. But the result is same.
I think my problem that beacause I telnet via 9023 port, so username and password is entered in the same row
"login username passwd"
May be Net::Telnet don't support this. Is it right ?

Try putting a slash as the first character, or take out the "$/i" part.

Net::Telnet doesn't really care how the password is sent, you just need to write a script for it which is correct for your situation.

you can use
use Telnet ();
instead of #use Net::Telnet;

it will work without requeting you to install module

I made this small script and it works fine

$telnet = new Telnet ( Timeout=>10, Errmode=>'die'); # Perl Telnet module running new instance
$telnet->open("$IP");
$telnet->waitfor('/password/i'); # According to NE behaviour it displayed password

print "Trying to login to user mode \n";
$telnet->print("$user_password"); # Typing user password
$telnet->waitfor('/\> /i'); # ">": Prompt for user mode
print "successfully login to user mode \n";



$telnet->print('show version');
@version = $telnet->waitfor('/\> /i');
@fileds= split (/\s/,$version[0]);



$telnet->print('enable');
$telnet->waitfor('/password/i');
print "Connecting to enable mode \n";
$telnet->print("$enable_password");
$telnet->waitfor('/\# /i'); # "#": Prompt for enable mode

Please notify me if I can help

Dark Knight.

For what's worth.. Telnet sends login and password in clear text. I've not used or suggested using telnet for some time. Instead I'd opt for ssh, you can define a trust that allows connections without passing the password.

This web site has a good tutorial on how to define it.
http://www.cvrti.utah.edu/~dustman/no-more-pw-ssh/


With SSH you can SCP (Secure copy from system to system) or remotely execute commands

such as scripts on the target system:
sudo -u remoteuser ssh remoteuser@host.domain.tld '/usr/local/bin/shellscript.sh'

Much more robust and best is it is secure.