regex - Perl:将子字符串提取到文件末尾

Question

我想提取某个给定单词和文件末尾之间的子字符串，但我运气不太好。

这就是我的文件的样子

non important line a
non important line b
...
...
...
non important line n
keyword
a,b,c,d
e,f,g,h
i,j,k,l

我想从关键字匹配到文件末尾:

keyword
a,b,c,d
e,f,g,h
i,j,k,l

我尝试了这个，只用 foo 替换关键字，而不是从关键字到文件末尾的所有内容:

cat foo | perl -pi -e 's/keyword.*\Z/foo/g'

谢谢!

Answer 1

perl -0777 -i -pe 's/keyword.*\Z/foo/sg'

-0777 将整个文件一次性放入 $_ 中，否则文件将逐行变为红色，放入 $_ 中。

另一方面，

/s 修饰符仅告诉正则表达式 . 也应该匹配 \n 因为我们也想在执行时匹配换行符替换 $_