regex - Perl 多行匹配，同时从文件中逐行读取

Question

假设我打开一个这样的文件:

#!/usr/bin/perl

open FILE, "8882099";
while ($line = <FILE>) {
  if ($line =~ /accepted by(.*?)\./s) {
    print "accepted by: $1";
  }
}

问题是正则表达式正在工作，但是由于文件是逐行读取的，我应该如何匹配这个继续到新行的字符串？

谢谢

Answer 1

一次读取整个文件通常是最简单的。

my $file;
{
   local $/;
   $file = <$fh>;
}