match - 在 ff 匹配中使用 eof 或输入结束？

Question

我有以下格式的巨大数据文件:

section 1
data 1
end section

section n # n is a large number > 10000
data n
end section

每个部分结束的标记是相同的，“结束部分”。我需要经常得到一个部分，然后另一个部分到文件的末尾。我分两步做:

cat dataFile | perl6 -ne 'my $n=1234; .say if /section \s $n/ ff /end \s section/' > neededPart
cat dataFile | perl6 -ne 'my $n=4321; .say if /section \s $n/ ff *' >> neededPart

当我多次这样做时，这很麻烦。我想知道 perl6 是否有类似 end-of-input 或 eof in match 之类的东西，这样我就可以在一行中完成:

cat dataFile | perl6 -ne '.say if /1234 || 4321/ ff /"end section" || endOfFile/' > neededPart

使用以下方法不起作用:

/1234 || 4321/ ff (/end/ or *)
/1234 || 4321/ ff ($_ ~~ /end/ or *)

Answer 1

您可以尝试使用两个 ff条件而不是单一。例如:

perl6 -ne '.say if (/1234/ ff /"end section"/) || (/4321/ ff *)' <dataFile