如何使用 Perl 递归正则表达式

Question

我需要测试设备的输出，大多数响应是一行，但有时是两行。我用一个简单的正则表达式解析一两行来处理它

if ($prompt =~ /(\s.*?)\r\n(.*)/)
{
   Note('Multiline '.$string);
   TestPrompt($string, $1);
   TestPrompt($string, $2);
}
else
{
   TestPrompt($string, $prompt);
}

但是如果响应超过两行怎么办？该代码无法处理额外的行，我希望我的设计更加稳健。有没有办法从正则表达式中捕获以在 foreach 中使用？

Answer 1

为什么不使用 split 函数来执行此操作？这是一些用法示例的链接。对于您的示例，为什么不这样做：

my @lines=split /\r\n/,$prompt;

Note("Multiline $string") if @lines>1; 

foreach my $line (@lines) 
{ 
   TestPrompt($string, $line);
} 

Answer 2

您可以在换行符处拆分：

my @lines = split /\r\n/, $prompt;
foreach (@lines) {
    TestPrompt( $string, $_ );
}

Answer 3

您可以在列表上下文中使用全局匹配：

    my @prompts = m{(\s*\S*?)\r\n}g;
    for my $prompt (@prompts) {
        print "$prompt\n";
    }