Home: Need a Custom or Prewritten Perl Program?: I need a program that...:
Need help on Net:Telnet



GirishB
New User

Dec 16, 2008, 6:44 AM


Views: 3216
Need help on Net:Telnet

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