如何在 Perl Expect 中完成 if-else？

Question

我正在 Perl 中使用 Expect 来完成一项任务。发送命令后，我期望输出为 Success 或 ERROR，具体取决于我需要打印到文件中，说明它是成功还是失败。

$exp->expect(30,
    '-re', "Success", printf LOG "Successfully Deleted \n" => sub {exp_last;},
    '-re', "ERROR",   printf LOG "Error in Deletion \n",
);

LOG 是文件句柄。如果我使用它，那么即使我得到 Success 作为 send 命令的输出，两个正则表达式都会被执行。在我的日志文件中，我得到了

Error in Deletion
Successfully Deleted

如何解决这个问题？

Answer 1

printf 是一个列表运算符；第一个 printf 将吞噬所有期望的剩余参数，就像您说的那样：

$exp->expect(30, '-re', "Success",
     printf( LOG "Successfully Deleted \n" =>
         sub {exp_last;},
         '-re',
         "ERROR",
         printf( LOG "Error in Deletion \n" )
     )
 );

因此成功的情况是首先打印删除中的错误，然后成功删除。
您可能应该改为：

$exp->expect(30,
    '-re', "Success", printf( LOG "Successfully Deleted \n" => sub {exp_last;} ),
    '-re', "ERROR",   printf( LOG "Error in Deletion \n" ),
);

除了没有理由在那里使用 printf 而不是 print 。

更新：据我所理解的 Expect 文档，这根本不是您执行多个模式的方式，您应该这样做：

my $which_pattern = $exp->expect(30, "Success", "ERROR");
if ($which_pattern) {
    if ($which_pattern == 1) {
        print LOG "Successfully Deleted \n";
    }
    else {
        print LOG "Error in Deletion \n";
    }
}

不需要 -re 除非您实际上使用模式而不是显式字符串；不知道您想通过 sub {exp_last;} 位实现什么目的。