Perl 触发器运算符 - 是否可以将第一场比赛的结束视为下一场比赛的开始？

Question

需要更多关于触发器运算符的帮助
以下是我的示例数据:

LS             SPID     ASP            SPID
3-59           MGW05    
SLC ACL PARMG ST                   SDL                             SLI
 0  A1  17    C7STH-1&&-31         MSC19-0/RTLTB2-385
LS             SPID     ASP            SPID
3-618          ETRC18   
SLC ACL PARMG ST                   SDL                             SLI
 0  A2   0    C7ST2C-4             ETRC18-0/RTLTB2-417
 1  A2   0    C7ST2C-5             ETRC18-0/RTLTB2-449
END

我感兴趣的数据从字符串 'LS SPID ASP SPID' 开始，并在下一个 'LS SPID ASP SPID' 或 END (如果没有下一个 LS 行)结束。是否可以使用触发器运算符来获得它？
我将此数据读入一个数组 (@linesread)，然后尝试使用以下代码遍历该数组，但它不起作用。问题是因为我不能在同一行上循环两次吗？还有其他解决办法吗？

P.S:我根据需要使用 ... 运算符。

foreach (@linesread) {
    if (/^LS\s*SPID\s*ASP\s*SPID$/ ... (/^LS\s*SPID\s*ASP\s*SPID$/ || /^END$/)) {
    print "$. \t $_\n";
    }
}   

Answer 1

范围运算符本身不能配置为立即评估左侧。但是你可以试试

if (my $r = /^LS\s*SPID\s*ASP\s*SPID$/ ... (/^LS\s*SPID\s*ASP\s*SPID$/ || /^END$/)) {
    print "$. \t $_\n";
    redo if $r =~ /E0$/;
}