Jason -
You might want to grab Net::Telnet from CPAN.
This snippet is from the documentation:
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10,
Prompt => '/bash\$ $/');
$t->open("sparky");
$t->login($username, $passwd);
@lines = $t->cmd("/usr/bin/who");
print @lines;
....
Aloha => Beau.
-----Original Message-----
From: Jason Frisvold [mailto:[EMAIL PROTECTED]]
Sent: Thursday, May 23, 2002 9:38 AM
To: [EMAIL PROTECTED]
Subject: Telnet Program
I need to write a program that telnets to a specific port and logs all
the output to a file. Is there an easy way to do this in perl? I tried
this via the command line (telnet 1.2.3.4 23 > my.log &) but it
apparently buffers everything and I'd like to be able to tail the file
at times...
---------------------------
Jason H. Frisvold
Senior ATM Engineer
Engineering Dept.
Penteledata
CCNA Certified - CSCO10151622
[EMAIL PROTECTED]
---------------------------
"I love deadlines. I especially like the whooshing sound they make as
they go flying by." -- Douglas Adams [1952-2001]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
