Perl espressione regolare (utilizzando variabile come stringa di ricerca con caratteri operatore perl inclusi)

Question

$text_to_search = "example text with [foo] and more"; 
$search_string = "[foo]"; 

if($text_to_search =~ m/$search_string/) print "wee"; 

Si prega di osservare il codice sopra. Per qualche motivo mi piacerebbe trovare il testo "[foo]" nella variabile $ text_to_search e stampare "wee" se lo trovo. Per fare questo, dovrei assicurarmi che [e] sia sostituito con [e] per far sì che Perl lo tratti come caratteri invece che come operatori.

Domanda: Come posso fare questo senza dover sostituire prima [ e ] con \[ e \] utilizzando un'espressione s///?

Answer 1

Utilizzare \Q per eseguire il controllo automatico di eventuali caratteri potenzialmente problematici nella variabile.

if($text_to_search =~ m/\Q$search_string/) print "wee"; 

Answer 2

utilizzare la funzione quotemeta:

$text_to_search = "example text with [foo] and more"; 
$search_string = quotemeta "[foo]"; 

print "wee" if ($text_to_search =~ /$search_string/); 

Answer 3

Come ragazzi già scritto è possibile utilizzare quotemeta (\Q \E) se il Perl è 5.16+, ma se sotto si può semplicemente evitare di usare espressioni regolari a tutti.

ad esempio utilizzando il comando index

if (index($text_to_search, $search_string) > -1){ 
    print "wee"; 
}