PERL-Expect：发送命令后获取输入。

Question

我正在编写一个 PERL-Expect 脚本来自动化测试。在脚本中，我想在执行命令时获取警告消息，并根据警告消息采取行动。根据某些情况，警告消息可能会有所不同，并且警告可能根本不显示。

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

在上面的场景中，我需要在继续之前获取警告消息作为输入，然后在发送回复之前进行一些处理。

在某些情况下，警告可能不会显示，如下所示，例如，如果没有运行备份并且执行命令而不对其进行处理：

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

如果显示警告消息，如何在发送命令后获取警告消息？

谢谢。

Answer 1

从 Expect 出发，您想要执行以下操作：

 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();