正则表达式 – Perl多行匹配,同时逐行读取文件

发布时间：2020-12-14 05:58:17 所属栏目：百科来源：网络整理

导读：让我们说我打开这样一个文件： #!/usr/bin/perlopen FILE,"8882099";while ($line = FILE) { if ($line =~ /accepted by(.*?)./s) { print "accepted by: $1"; }} 问题是正则表达式正在工作,但由于文件是逐行读取的,我应该如何匹配这个继续到新行的字符串？

让我们说我打开这样一个文件：

#!/usr/bin/perl

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

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

谢谢

解决方法

一次读取整个文件通常最简单.

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!