Hi , why don\'t you try this code and see
......$t = new Net::Telnet (Timeout => 1000,
Prompt => );
$username=\"*****\";
$password=\"******\";
$t->open(\"id01\");
$t->login($username, $password);regards,sandeep s kumarukhas jean wroteHi
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
prev
iews at Yahoo! Games.
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
