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, @[EMAIL PROTECTED]
)
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
|
