我怎样才能杀死perl中的常规部分

Question

我的文件中有很多以下常规部分 我想杀掉TEST1和TEST2之间的字 我怎么能用perl做什么？

TEST1
xxx
xxx
xxx
TEST2
ggg
TEST1
xxx
xxx
TEST2
ggg

Answer 1

使用触发器操作符：

$ perl -ne 'print unless /^TEST1$/ .. /^TEST2/' <<'END'
TEST1
xxx
xxx
xxx
TEST2
ggg
TEST1
xxx
xxx
TEST2
ggg
END

输出：

ggg
ggg