perl 한 줄 정규식 이스케이프^문자

Question

^문자로 시작하는 줄이 있는데 줄의 시작과^charater 싶습니다. 하지만 그것 wokring.

echo "^./mnt/" |perl -slane ' print if m#^$line$#o' -- -line="^./mnt/" 

이 정규 표현식을 인수로 전달 된 입력 regularexpression과 어떻게 일치시킬 수 있습니까?

이 하나는 작동하지만 나는 perl에서 작동하도록하고 싶습니다.

#echo "^./mnt/" |perl -slane ' print if m#^$line$#o' -- -line="\\^./mnt/" 
^./mnt/ 

감사 SR이

Answer 1

에이기 때문에 확인하십시오.

이 경우

echo "^./mnt/" |perl -slne'print if /^\Q$line\E$/' -- -line="^./mnt/" 

, 당신은 단지의

echo "^./mnt/" |perl -slne'print if $_ eq $line' -- -line="^./mnt/" 

Answer 2

당신은 당신의 인수에 특수 문자를 이스케이프 할 필요가 (이 정규식에 직접 내장 된 것처럼).

echo "^./mnt/" |perl -slane ' print if m#^$line$#o' -- -line="\^\.\/mnt\/"

Answer 3

어쩌면 m#^\Q$line\E# 또는 m#^\Q$_\E#하지만 내가 (E \ 아마도 \ Q ... 통해) 정규식 패턴, 사용 quotemeta에 텍스트를 변환하려면 windoz 상자