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 @[EMAIL PROTECTED]
= split /\n/, $rootexpect->exp_before();
$actualprompt= "$outp[$#outp]"."$match";
print "got $actualprompt\n";
On Fri, May 2, 2008 at 10:33 AM, Ravi Malghan <rmalghan@[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, @[EMAIL PROTECTED]
)
> or die "Cannot spawn $command: $!\n";
> $exp->expect($timeout,
> [qr/login:/ => sub {my $exp = ****ft;
> $exp->send("$username\n");
> exp_continue;
> } ],
> [qr/Password: $/ => sub {my $exp = ****ft;
> $exp->send("$password\n");
> exp_continue;
> } ],
> [qr/READY$/ => sub {my $exp = ****ft;
> $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: beginners-unsubscribe@[EMAIL PROTECTED]
> For additional commands, e-mail: beginners-help@[EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
|
