Jak obsługiwać znaki specjalne w wyrażeniu regularnym Perla?

Question

Używam programu Perl do wyodrębniania tekstu z pliku. Muszę szereg strun, które używać jako ograniczniki dla tekstu, na przykład:

$pat = $arr[1] . '(.*?)' . $arr[2]; 

if ($src =~ /$pat/) { 
    print $1; 
} 

jednak, dwóch łańcuchów w tablicy są $450 i (Buy now). Problem polega na tym, że symbole w łańcuchach reprezentują łańcuch końcowy i grupę przechwytywania w wyrażeniach regularnych Perla, więc tekst nie parsuje tak, jak zamierzam.

Czy istnieje sposób obejścia tego?

Answer 1

Spróbuj funkcji Perla za quotemeta. Możesz też użyć w wyrażeniu regularnym opcji \Q i \E, aby wyłączyć interpolację wartości w regex. Więcej informacji na temat perlretut na \Q i \E - mogą one nie być tym, czego szukasz.

Answer 2

Zastosowanie quotemeta:

$pat = quotemeta($arr[1]).'(.*?)'.quotemeta($arr[2]); 
if($src=~$pat) print $1; 

Answer 3

quotemeta ucieka metaznakami więc są one interpretowane jako literały. Jako skrót, można użyć \ Q ... \ E w podwójnym cytowaniu kontekście otoczyć rzeczy, które powinny być cytowane:

$pat = quotemeta($arr[1]).'(.*?)'.quotemeta($arr[2]); 
if($src=~$pat) { print $1 } 

lub

$pat = "\Q$arr[1]\E(.*?)\Q$arr[2]"; # \E not necessary at the end 
if($src=~$pat) { print $1 } 

lub po prostu

if ($src =~ /\Q$arr[1]\E(.*?)\Q$arr[2]/) { print $1 } 

Należy zauważyć, że nie jest to ograniczone do zmiennych interpolowanych; Znaki literalne wpływa też:

perl -wle'print "\Q.+?"' 
\.\+\? 

choć oczywiście zdarza się po zmiennej interpolacji, więc "\ Q $ foo" nie stać '\ $ foo'.