跨多行的正则表达式

Question

我能够根据您的建议成功提取所有内容。我的问题如预期的那样出现，正则表达式没有正确识别某些东西......非常感谢！这是我的结束代码...希望对某人有所帮助！

        if($_=~/(Research Interests)/){
            $research = "Research Interest";

            if($_=~m/<h2>Research Interests<\/h2>(.*?)<p>(.*?)<\/p>/gs){
                    @researchInterests = split(/,+/, $2);
                    $count = 1;
                    foreach(@researchInterests){
                            print "$research $count:";
                            print $_. "\n";
                            $count++;
                    }
            }
    }

Answer 1

问题是您一次只能阅读一行。您为什么不阅读整个文件并与之匹配。

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

Answer 2

此时您可以简单地获取更多行：

while (<FILE>) {
  if (m/Research Interests/) {
    while (<FILE>) {
      if (m/<p>(.*)<p>/) {
        print "Research Interests: $1";
        last;
      }
    }
  }
}

我不知道你的文件是否很大，但值得学习不需要一次读取整个文件的技术，这样你就可以处理任意大的文件或流。

Answer 3

如果您绝对必须这样做，您可以尝试将换行符设置为 undef：

#!/usr/bin/perl
use warnings;
use strict;

my $infile = 'in.txt';
open my $input, '<', $infile or die "Can't open to $infile: $!";

my $reserch_interests;
$/=undef;
while(<$input>){
        if($_ =~ /(Research Interests)/){
            $reserch_interests = $1;
                if($_=~ m/<p>(.*)<\/p>/){
                        print "Title: $reserch_interests\nInterests: $1\n";
                }
        }

}

打印：

Title: Research Interests
Interests: Data mining, databases, information retrieval