Perl Expect help

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

• Perl Expect help by Ravi Malghan
• Re: Perl Expect help by Juan Pablo Feria Gomez