패턴이 변수에있을 때 perl에서 복잡한 알려지지 않은 패턴을 비교하는 방법은 무엇입니까?

Question

사용자가 제공 한 패턴을 포함하는 구성 파일이 있습니다. 기본적으로 패턴은 알파벳, 숫자, 공백, 반드시 닫히지 않는 괄호 및 특수 문자의 조합 일 수 있습니다. 패턴 예 : <Error my (error** fail& 345% ?+[+?>

저는이 문제를 해결하기가 매우 쉽습니다. 코드의

내 조각 :

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

특수 문자를 인용해야합니다. perldoc -f quotemeta

당신은 또한 같은 속기 \Q$variable\E 구문을 사용할 수 있습니다 참조 :

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

모든 특수 문자는 현재 문자 그대로 일치한다.