Here's a tiny code to get the prompt, hope it helps
$actualprompt='';
$rootexpect->send("\n");
my $shpromvrfy = $rootexpect->expect(750,'#','>','$');
my $match=$rootexpect->match();
my @outp = split /\n/, $rootexpect->exp_before();
$actualprompt= "$outp[$#outp]"."$match";
print "got $actualprompt\n";
On Fri, May 2, 2008 at 10:33 AM, Ravi Malghan <[EMAIL PROTECTED]> wrote:
> 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/
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
