単語/フレーズのフィルタ文字列：Perl

Question

私はperlで新しく、基本的にキーワードのリストをフィルタリングするための助けを募集しています。要するに、これは単語/フレーズの同じハッシュに対する文字列のハッシュです。これは最小の共通分母を取得し、リストをクリーンアップすることです。例えば

リストは以下が含まれて言う：

bat 
bat boy 
bat-boy 
bat&boy 
bat:boy 
bat's 
bat-boy's 
batman & bat boy 

それが唯一の次に一致する必要があります：

bat boy   (because of bat) 
batman & bat boy (because of bat) 

正規表現は明らかに移動するための方法ですが、私は次のように立ち往生していますいくつかの単語に - 、 '、&、：などが含まれているため、/ b（単語境界の一致）は使用できません。

書き込みにはどのような方法が最適でしょうか正規表現？

if $keyx=~m/\Q$keyz\E/ 

すべてのヘルプはあなたが後にしているものは非常にわからない

Answer 1

を理解されるだろうが、私はあなたが一致させたい推測しています：私は正規表現であるここで$ keyxに対して$ keyz

をチェックしています単語全体のみ、部分文字なし、および非文字と関連した単語は含まれません。

use strict; 
use warnings; 
use v5.10; 

for (split /, */, <DATA>) { 
    say if /(?<![^ ])bat(?![^ ])/; 
} 

__DATA__ 
bat, bat boy, bat-boy, bat&boy, bat:boy, bat's, bat-boy's, batman & bat boy 

出力：

bat 
bat boy 
batman & bat boy 

だから私たちはキーワードを周囲の文字が空白ではないではないことを主張し、これを達成するための方法は、負のルック周りのアサーションを使用することです。