Gibt es eine Möglichkeit, eine Regex in Perl vorzukompilieren?

Question

Gibt es eine Möglichkeit, eine Regex in Perl vorzukompilieren? Ich habe eine, die ich oft in einem Programm verwende und es ändert sich nicht zwischen den Anwendungen.

Answer 1

Für literale (statische) Regexes gibt es nichts zu tun - Perl kompiliert sie nur einmal.

if ($var =~ /foo|bar/) { 
    # ... 
} 

Für Regexe, die in Variablen gespeichert sind, haben Sie ein paar Optionen. Sie können die qr// Operator ein Regex-Objekt zu erstellen:

my $re = qr/foo|bar/; 

if ($var =~ $re) { 
    # ... 
} 

Dies ist praktisch, wenn Sie einen regulären Ausdruck an mehreren Stellen verwenden möchten oder es zu Subroutinen übergeben.

Wenn die RegexMuster in einem String ist, können Sie die /o Option verwenden Perl versprechen, dass es nie ändern:

my $pattern = 'foo|bar'; 

if ($var =~ /$pattern/o) { 
    # ... 
} 

Es ist in der Regel besser nicht zu tun, wenn. Perl ist schlau genug, um zu wissen, dass sich die Variable nicht geändert hat und die Regex nicht neu kompiliert werden muss. Die Angabe /o ist wahrscheinlich eine vorzeitige Mikrooptimierung. Es ist auch eine potentielle Falle. Wenn die Variable geändert mit /o hat, würde Perl den alten Regex trotzdem verwenden. Das könnte zu schwer zu diagnostizierenden Fehlern führen.

Answer 2

Einfach: Überprüfen Sie den Operator qr // (dokumentiert in perlop unter Regexp Quote-Like Operators).