Hi!

You might want to try Net::Telnet. This module allows you to easily open and manage telnet sessions.

Hope this helps!

Michele.

If telnet succeeds, it won't return. If telnet fails, you've lost anyway.

perlipc goes into this in detail, prepare yourself for a big, complicated read.

But what will work better for what you want is to open a socket directly to the telnet port, and read using select() calls , and sysread ans syswrite, IIRC.

Networking is complicated, so this will take a while to figure out. Keep at it though, it's the most fun bit of computing (for me).

got some help on this...sharing it with you.

my friend says we should try duping the descriptors so

that the forked process containing the telnet command

can be controlled by us...pass the rest of the commands

starting from line7 to the duped descriptor which takes input from STDIN

but me doesnt know how to work with descriptors

will do some R&D on it today

u could try it out too..;)

and ofcourse let me know abt it

thanks a lot

shamala

For your and your friend's approach, look into http://IPC::Open2, and maybe to Expect.pm for Unixy systems.

But for telnet, I'd bypass the external commands and use Net::Telnet. The relevant chapter in Lincoln Stein's book Network Programming with Perl is online.

No, I won't do your work for you.

And if you keep listening to your friend rather than reading the manual (perlipc), you'll waste a lot of time. But that's your problem, not mine.

____________________
Jeremy
I didn't believe in evil until I dated it.

use Net::Telnet;  # initialize the telnet module
my $username = 'user';
my $password = 'some_password';
my $command = 'ls -la';
print "enter the full domain name or IP of the machine that you want t
+o telnet to\n";
chomp(my $host=<STDIN>);

my prompt_regex = '/
                    .*   
                     (        
                      \-?\@?  
                       \w*?\s?  
                       [\$#\%>~] 
                       \]?                      
                       |                       
                       \\\[\\e\[0m\\\] \[0m    
                       )                      
                       \s?    
                       /x';  

$shell = new Net::Telnet ('Timeout'=>'7',
    'Errmode'=> sub { report_error("login failure"); },
    'Prompt' => $prompt_regex );

$shell->open(Host=>$host);    # opens the object
$shell->login($username,$password);   # login 

# then we issue some command with
$shell->cmd("$command");

# or get the output of some command
my $cmd_output = $shell->cmd("$command");

# and close the telnet object
sleep 1;
$shell->close;

sub report_error
{
   .... some code here to handle errors....
}
[download]

"I agree with the others regarding using the Net::telnet module if you can afford to."

Afford? I don't understand what it 'costs' that someone whould not be able to afford it. Perhaps i'm just not grasping it in the since you mean, i just don't want the OP scared off by thinking it costs money to use.


___________
Eric Hodges

hey thanks Joe...really appreciate the help.