如何使用 Perl 匹配句子中的连续单词？

Question

除了此方法之外，是否有更好的方法来匹配单词，我正在尝试查找数组中出现在任何句子中的单词。

 my $count = 0;
 my @strings = (
    "i'm going to find the occurrence of two words going if possible",
    "i'm going to find the occurrence of two words if impossible",
    "to find a solution to this problem",
    "i will try my best for a way to match this problem"
 );
 @neurot = qw(going match possible);

 my $com_neu = '\b'.join('\b|\b', @neurot).'\b';

 foreach my $sentence (@string){

 @l = $sentence =~ /($com_neu)/gi; 

 foreach my $list (@l){ 
    if($list =~ m/\w['\w-]*/){
          print $list;
      $count++;
    }   
 }

 print $count;
 }

输出：

String 1: going going possible
String 2: going 
String 3:
String 4: match

请帮助我更快的方法。

谢谢。

Answer 1

另一种方法可能是使用散列来匹配单词：

my %neurot_hash = map { lc($_) => 1 } qw(going match possible);

for my $sentence (@strings) {
    for my $found (grep { $neurot_hash{ lc($_) } } $sentence =~ /\w['\w-]*/gi) {
        print $found, " ";
    }
    print "\n";
}

对于您提供的数据，此方法速度快约 7%。但请记住，数据集非常小，所以 YMMV。

Answer 2

“智能匹配”运算符怎么样？

foreach 我的 $elem (@neurot){
if(/$elem/i ~~ @strings){
打印“找到$ elem \ n”;
}
}

Answer 3

与 bvr 答案相同，但可能更清晰

my %neurot_hash = map { lc($_) => 1 } qw(going match possible);

for my $sentence (@strings) {
    my @words = split /[^\w']/, $sentence; 
            #I am not sure if you want to take "i'm" as a separate word. 
            #Apparently, stackoverflow does not like '.

    my @found = grep { exists $neurot_hash{ lc($_) } } @words;
    print join (" ",  @found);
    print "\n";
}