Wie kann ich Metazeichen entschlüsseln, wenn ich eine Variable in Perls Matchoperator interpoliere?

Question

Angenommen, ich habe eine Datei mit Zeilen Ich versuche gegen entsprechen:

foo 
quux 
bar 

In meinem Code, habe ich ein anderes Array:

foo 
baz 
quux 

Lassen Sie uns sagen, dass wir durch die Datei iterieren, jeder Aufruf Element $word, und die interne Liste, die wir gegen überprüfen, @arr.

if(grep {$_ =~ m/^$word$/i} @arr) 

Dies funktioniert korrekt, aber in dem etwas möglich Fall, in dem wir einen Testfall fo. in der Datei haben, die . arbeitet als Wildcard-Operator in der Regex und fo. paßt dann foo, was nicht akzeptabel ist .

Dies ist natürlich, weil Perl die Variable in eine Regex interpoliert.

Die Frage:

Wie kann ich Perl zwingen wahrsten Sinne des Wortes um die Variable zu benutzen?

Answer 1

Die richtige Antwort lautet:

http://perldoc.perl.org/functions/quotemeta.html

Answer 2

quotemeta

Gibt den Wert von EXPR mit allen nicht "Wort" Zeichen backslashed. Verwenden Sie nicht regexps -

if(grep {$_ =~ m/^\Q$word\E$/i} @arr) 

Answer 3

Verwenden \Q...\E spezielle Symbole direkt in Perl-String nach Variablenwert Interpolation zu entkommen. Ich sage nicht, dass Regexps schlecht sind, aber sie für (was gleichbedeutend ist) einfache Gleichheitsprüfung zu verwenden, ist Overkill.

Verwenden Sie: grep { lc($_) eq lc($word) } @arr und glücklich sein.

Answer 4

Von perlfaq6 ‚s Antwort auf How do I match a regular expression that's in a variable?:

---

Wir haben nicht zu hart Codemuster in den Match-Operator (oder irgendetwas anderes, das mit regulären Ausdrücken arbeitet). Wir können das Muster zur späteren Verwendung in eine Variable einfügen.

Der Übereinstimmungsoperator ist ein doppelter Anführungszeichenkontext, so dass Sie Ihre Variable wie eine doppelte Anführungszeichenfolge interpolieren können. In diesem Fall lesen Sie den regulären Ausdruck als Benutzereingabe und speichern ihn in $ regex. Sobald Sie das Muster in $ regex haben, verwenden Sie diese Variable im Match-Operator.

chomp(my $regex = <STDIN>); 

if($string =~ m/$regex/) { ... } 

Alle regulären Ausdruck Sonderzeichen in $ regex sind noch besondere, und das Muster immer noch gültig sein oder Perl wird sich beschweren. Zum Beispiel gibt es in diesem Muster eine ungepaarte Klammer.

Wenn Perl den regulären Ausdruck kompiliert, behandelt es die Klammer als den Beginn einer Speicherübereinstimmung.Wenn es nicht die schließende Klammer finden, es klagt:

Unmatched (in regex; marked by <-- HERE in m/Unmatched (<-- HERE paren/ at script line 3. 

Sie, um dies auf verschiedene Weise erhalten Sie auf unserer Situation abhängig. Erstens, wenn Sie nicht möchten, dass eines der Zeichen in der Zeichenfolge speziell ist, können Sie sie mit quitemeta vor der Verwendung der Zeichenfolge umgehen.

Sie können dies auch direkt im Match-Operator mit den Sequenzen \ Q und \ E tun. Das \ Q teilt Perl mit, wo Sonderzeichen zu entkommen sind, und das \ E sagt ihm, wo es anhalten soll (siehe Perl für weitere Details).

Alternativ können Sie qr //, den regulären Ausdruck-Anführungsoperator verwenden (siehe perlop für weitere Details). Es zitiert und vielleicht kompiliert das Muster, und Sie können Flags für reguläre Ausdrücke auf das Muster anwenden.

Sie könnten auch Fehler abfangen wollen, indem Sie einen Eval-Block um das Ganze wickeln.

chomp(my $input = <STDIN>); 

eval { 
    if($string =~ m/\Q$input\E/) { ... } 
    }; 
warn $@ if $@; 

Oder ...

my $regex = eval { qr/$input/is }; 
if(defined $regex) { 
    $string =~ m/$regex/; 
    } 
else { 
    warn $@; 
    } 

Answer 5

Ich glaube nicht, dass Sie einen regulären Ausdruck in diesem Fall wollen, da Sie nicht mit einem Muster übereinstimmen. Sie suchen nach einer wörtlichen Zeichenfolge, die Sie bereits kennen. Erstellen Sie eine Hash mit den Werten übereinstimmen und verwenden filtern @arr:

open my $fh, '<', $filename or die "..."; 
my %hash = map { chomp; lc($_), 1 } <$fh>; 

foreach my $item (@arr) 
     { 
     next unless exists $hash{ lc($item) }; 
     print "I matched [$item]\n"; 
     }