perl에서 괄호 검색

Question

하나의 파일에서 단어/기호 목록을 읽고 다른 텍스트 본문에서 각각을 검색하는 프로그램 작성.

while(<FILE>){ 
    $findword = $_; 

    for (@text){ 
     if ($_=~ /$find/){ 
      push(@found, $_); 
     } 
    } 
} 

는 그러나, 나는이 문제에 실행 한 번에 표시 괄호 :

는 그래서 같은 것이 있습니다.

Unmatched (in regex; marked by <-- HERE in m/(<-- HERE 

나는 펄이 (는 정규식의 일부입니다 생각하기 때문에 그것의 실현,하지만 난 이것에 어떻게 대처 않으며 ( 검색을 : 그것은 나를이 오류를 준다? 일반적으로 백 슬래시에서

Answer 1

정규 표현식에 내부 문자를 이스케이프 - /\(/이 같은 상황에서 문자 (

일치합니다 즉이 교대로 사용하는 인용 운영자에게

if ($_ =~ /\Q$find\E/) { 
    ... 
} 

를 사용하는 것이 좋습니다 quotemeta

Answer 2

당신에게 ' /$find/ 대신 /\Q$find\E/을 쓰고 싶습니다. \Q은 메타 분석을 중지하도록 파서에 지시합니다. 그것은 \E을 찾을 때까지 정규 표현식의 일부로 표현합니다.

Answer 3

다른 펄 정규식 메타 문자가 메타 문자로 해석되기를 원하지 않는 한 m/\Q$find\E/이 유용하다고 생각됩니다. \e와

if(index($_, $find) >= 0) { 

Answer 4

당신은 \Q and \E 사용할 수 있습니다 like :

while(<FILE>){ 
    $findword = $_; 

    for (@text){ 
     if ($_=~ /\Q$find\e/){ 
      push(@found, $_); 
     } 
    } 
} 

Answer 5

\Q가 $find 변수에 특별한 문자를 탈출한다 : 당신은 그냥 문자 그대로의 일치를 찾고 있다면

if ($_ =~ /\Q$find\E/){ 

을하거나 index를 사용