☰

如何获取行与行之间的行？

tag-icon • tag-icon text-processing perl
如何获取行与行之间的行？

我有一个 perl oneliner：

echo -e 'sla\ndfjAAAAk\nsaljdfla\nsjdfBBBBsadf\njasdf' | perl -E 'my $_ = do { local $/; <> }; say join qq!\n!, m!\QAAAA\E\K(.*?)(?=\QBBBB\E)!gs'
k
saljdfla
sjdf

它有效，但我需要这个输出：

dfjAAAAk
saljdfla
sjdfBBBBsadf

所以我也需要包含“AAAA”和“BBBB”的行 - 而不仅仅是“来自”和“到”它们。我怎样才能做到这一点？

答案1

你想要的范围操作员。您也不需要“吞食”您的文件。

STR='sla\ndfjAAAAk\nsaljdfla\nsjdfBBBBsadf\njasdf' 
echo -e ${STR} | perl -nE 'm{^dfjAAAAk}..m{^sjdfBBBB} and print'
dfjAAAAk
saljdfla
sjdfBBBBsadf

相关内容