펄 정규식 직접 이스케이프 특수 문자

Question

perl 초보자. 필자는 파일의 텍스트를 찾아서 바꾸기 위해 간단한 한 줄짜리 작업을하고 있습니다. \Q\E 또는 quotemeta()으로 모든 특수 문자를 이스케이프 처리하는 방법에 대해 읽었지 만 변수를 보간 할 때만 작동한다는 것을 알았습니다. 예를 들어, 특수 문자가 포함 된 부분을 직접 교체하려고하면 오류가 발생합니다. 하지만 먼저 스칼라에 저장하면 작동합니다. 물론, 모든 특수 문자를 백 슬래시로 이스케이프하면 작동합니다.

$ echo 'One$~^Three' | perl -pe 's/\Q$~^\E/Two/' 
One$~^Three 
$ echo 'One$~^Three' | perl -pe '$Sub=q($~^); s/\Q$Sub\E/Two/' 
OneTwoThree 
$ echo 'One$~^Three' | perl -pe 's/\$\~\^/Two/' 
OneTwoThree 

누구든지이 동작을 설명 할 수 있으며 백 슬래시를 사용하지 않고 직접 특수 문자를 인용 할 수있는 대안이 있는지도 보여 줄 수 있습니까?

Answer 1

보간, 먼저 \Q, \U, \u, \L 및 \l 발생합니다.

"abc\Qdef$ghi!jkl\Emno" 

을 의미

백 슬래시가 존재하는 이유입니다, 좋은 대안이없는

s/\Q$~^/Two/ # not ok quotemeta($~ . "^") 
s/\Q$Sub/Two/ # ok 
s/\$\~\^/Two/ # ok 
s/\$\Q~^/Two/ # ok