You can't send data through an open Telnet session if that is what you are
thinking. (disclaimer: maybe you can, but good luck trying to do that).
What you want is to use the Net::Telnet module.
use Net::Telnet;
# Open a telnet session
my $t = new Net::Telnet (Timeout => 10);
$t->open("1.2.3.4");
# Login
$t->login($username, $passwd);
# Execute the command 'ls' (or whatever you need) when you see the prompt '$
'
$t->cmd(String => 'ls', Prompt => '/\$ $/');
# Close the connection
$t->close;
Or are you just trying to upload data? Anyway, check out the Net::Telnet
docs, it might do exactly what you need.
Rob
-----Original Message-----
From: Oktay Ahmed [mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 17, 2002 12:48 AM
To: [EMAIL PROTECTED]
Subject: SEND
Hi
Ý am a very beginner in Perl. Here is my problem:
I want to send some data on (via) established connection (telnet). I don't
need any code to establish connection, to login, etc. I just need to send
data (including "\n" at the end). How to do this?
What modules I have to use?
Sorry for asking this kind of simple questions...
Best,
Oktay
-----
Oktay AHMED, MA, Chairman
MENSA MACEDONIA, The High-IQ Society
P.O.Box 747, 1000 Skopje, Macedonia
E-mail: <[EMAIL PROTECTED]>, <[EMAIL PROTECTED]>
Web: <www.mensa.org.mk>
Fax: +1 305 574 0549 (USA) / +44 870 136 3517 (UK)
-----
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
