Perl regulärer Ausdruck (Variable als Suchzeichenfolge mit Perl-Operator-Zeichen verwenden)

Question

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

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

Bitte obigen Code beachten. Aus irgendeinem Grund möchte ich den Text "[foo]" in der Variablen $ text_to_search finden und "wee" ausdrucken, wenn ich ihn finde. Um dies zu tun, müsste ich sicherstellen, dass [und] durch [und] ersetzt werden, damit Perl sie als Zeichen statt als Operatoren behandelt.

Frage: Wie kann ich dies tun, ohne vorher [ und ] mit ersetzen mit \[ und \] einen s/// Ausdruck verwenden?

Answer 1

Verwenden Sie \Q, um mögliche problematische Zeichen in Ihrer Variablen automatisch zu erkennen.

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

Answer 2

Verwenden Sie die quotemeta Funktion:

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

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

Answer 3

Wie schon Jungs geschrieben Sie quotemeta (\Q \E) wenn Ihr Perl ist 5.16+ aber wenn unter können Sie einfach vermeiden regexp mit überhaupt nutzen können.

zum Beispiel durch index Befehl

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