perl - 如何使用 Perl 提取不同行中两个关键字之间的文本

Question

我有一个名为的文件event.txt，我需要一个 Perl 脚本来打开它并读取tag1和tag2关键字之间的行并将它们打印在屏幕上。

我已经搜索了论坛并且有类似的问题，但我不知道我应该如何打开文本文件并进行这样的搜索。

Answer 1

while (<>) {
  print if /tag1/../tag2/;
}