
GirishB
New User
Dec 16, 2008, 6:44 AM
Post #1 of 1
(2949 views)
|
Need help on Net:Telnet
|
Can't Post
|
|
I am doing telnet from perl with port 1291. login prompt is like as follows: Some TEXT. Please logon... User: aaccccoouunntt Password: p*a*s*s*w*o*r*d* my code is as follows: #!/usr/bin/perl $hostname = "localhost"; $username = "account"; $passwd = "password"; ## Connect and login. use Net::Telnet (); $host = new Net::Telnet (Port => 1291, Timeout => 30); $host->open($hostname); $host->login($username, $passwd); $host->send("6"); $host->send("3"); $host->send("2"); # sleep 10; $host->close; I am getting the following error: timed-out waiting for login prompt at telnet.pl line 11 Please help
|