Hi: I am trying to build a simple perl/expect program which will telnet, run a
command and provide me the result of the command in a string or array to
process within the script. I have gotten so far as the script telnets, runs the
command the prints the result in stdout. I can't seem to figure how to get the
result of the command in a string so I can continue processing and do other
things within the script.
my $exp = Expect->spawn($command, @params)
or die "Cannot spawn $command: $!\n";
$exp->expect($timeout,
[qr/login:/ => sub {my $exp = shift;
$exp->send("$username\n");
exp_continue;
} ],
[qr/Password: $/ => sub {my $exp = shift;
$exp->send("$password\n");
exp_continue;
} ],
[qr/READY$/ => sub {my $exp = shift;
$exp->send("select Running from Service WHERE Name =
'CheckForRemedyTickets';\n");
exp_continue;
} ],
);
TIA
Ravi
____________________________________________________________________________________
Be a better friend, newshound, and
know-it-all with Yahoo! Mobile. Try it now.
http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
