パターンが変数にあるときに、perlで複雑な未知パターンを照合する方法は？

Question

ユーザーが提供するパターンを含む設定ファイルがあります。基本的には、パターンは何でもかまいません。アルファベット、数字、空白、必ずしも閉じていない括弧、特殊文字の組み合わせでもかまいません。 パターン例：<Error my (error** fail& 345% ?+[+?>

私は非常にperlには新しく、これを処理するのに苦労しています。

私のコードの一部：

for (<FH>) { 
    for (my $j = 0 ; $j < $num_pat ; $j = $j + 1) { 
     print "This is the pattern : $pat_array[$j] \n"; 
     if ($_ =~ m/'$pat_array[$j]'/) { 
      print "$_ : match found for $pat_array[$j] \n"; 
      #print "KPI for the pattern is : $kpi_array[$match] : array style \n"; 
      $match_count[$j] = ($match_count[$j] + 1); 
     } 
    } 
} 

パターン・アレイは、複数のパターンがあります。 （$ _ =〜m/'$ pat_array [$ j]' /） これは単純なパターンでは動作しますが、例のパターンでは動作しません。

さらに進んでください。

Answer 1

特殊文字を引用する必要があります。任意の特別な文字は今、文字通りマッチします

if ($string =~ m/\Q$pattern\E/) { ... } 

： あなたはまた、そのような速記\Q$variable\E構文を使用することができますperldoc -f quotemeta

を参照してください。