Hi all ... had a problem executing this script which tries to run a "who"
command on a unix host id01.
use Net::Telnet;
my $host = "id01";
my $port = "1800";
my $t = new Net::Telnet (Timeout => 10);
$t->open(Host => $host, Port => $port);
$t->login("abc", "123");
my @lines = $t->cmd("^C");
my @lines = $t->cmd("who");
print "@lines";
Its giving me this error:-
unknown remote host: idl01 at test.pl line 5
Any idea why this may be happening?? the host id01 can be reached if I do a
manual "telnet id01" from start->run.
when i do a manual "telnet id01", there is a script that runs from .profile
file ... its by default ... i dont want to run that script ... hence the use of
Ctrl-C or ^C.
Any suggestions are most welcome.
Thanks and Regards,
Ukh
---------------------------------
Be a PS3 game guru.
Get your game face on with the latest PS3 news and previews at Yahoo! Games.
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
