PERL-Expect: Get input after sending the command.

Question

I am writing a PERL-Expect script to automate testing. In the script I want to get the warning messages when a command is executed and take action based on the warning messages. The warning messages can differ based on some situations and also the warning may not be shown at all.

prompt>delete fs
WARNING: Are you sure?(Y/N).. backup is running:

In the above scenario I need to get the WARNING message as input before proceeding and then do some processing before sending a reply.

The warning may not be displayed as shown below in some cases, for e.g., if backup is not running and command be executed without processing them:

prompt>delete fs
Done.
prompt>show fs
...

How to get the warning message after the command is send if it is displayed?

Thanks.

daxim · Accepted Answer · 2011-07-31 16:14:55Z

1

Going from Expect you'd want to do something like:

 use Expect;

 my $exp = Expect->spawn("delete", "fs")
 or die "Cannot spawn $command: $!\n";

 $exp->expect(360,
   [ "Done." => \&report_success ],
   [ "Are you sure?(Y/N) => sub { my $self = shift;
                                   $self->send("Y\n");
                                   exp_continue; } ],
   [ "backup is running:" => \&report_failure ],
   [ timeout => \&report_timeout ],
 );

 $exp->soft_close();

edited Jul 31, 2011 at 16:14

daxim

39.3k4 gold badges72 silver badges135 bronze badges

answered Jul 30, 2011 at 2:00

Duane

2801 silver badge5 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

PERL-Expect: Get input after sending the command.

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related