如何消除perl中的常规部分_Perl

如何消除perl中的常规部分

perl

如何消除perl中的常规部分,perl,Perl,我的文件中有很多下面的常规部分我想删除TEST1和TEST2之间的单词如何使用perl TEST1 xxx xxx xxx TEST2 ggg TEST1 xxx xxx TEST2 ggg 使用触发器操作符： $ perl -ne 'print unless /^TEST1$/ .. /^TEST2/' <<'END' TEST1 xxx xxx xxx TEST2 ggg TEST1 xxx xxx TEST2 ggg END 你想保留TEST1和TEST2吗？我想杀死T

我的文件中有很多下面的常规部分我想删除TEST1和TEST2之间的单词如何使用perl

TEST1
xxx
xxx
xxx
TEST2
ggg
TEST1
xxx
xxx
TEST2
ggg

使用触发器操作符：

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

你想保留TEST1和TEST2吗？我想杀死TEST1和TEST2，但保留gg。阿蒙的答案就是你需要的是~~这就是我想要的！！！你不可能总是得到你想要的。但如果你有时间尝试，你可能会发现，你得到了你需要的。

ggg
ggg