regex - Perl/regex删除字符串的前3行和后3行

Question

我一直在寻找建立正则表达式语句以始终删除前3个
字符串的最后几行，以及字符串的最后三行(中间部分
可以是任意n个行内容)。任何干净的正则表达式都可以实现
这个输出？ (即，始终剥离我们的前3行和后3行
字符串-并保留中间部分，该部分可以是变量＃
行)

谢谢。

例如

输入字符串:

"
1
2
3
<1...n # of lines content>
4
5
6
"

到所需的输出字符串:

"<1..n # of lines content>"

Answer 1

先前给出的解决方案确实很复杂!全部需要的是

s/^(?:.*\n){1,3}//;
s/(?:.*\n){1,3}\z//;

如果您想接受结尾处缺少尾随换行符，可以使用

s/\n?\z/\n/;
s/^(?:.*\n){1,3}//;
s/(?:.*\n){1,3}\z//;

或者

s/^(?:.*\n){1,3}//;
s/(?:.*\n){0,2}.*\n?\z//;