Kurze Möglichkeit zum kompilieren dynamisch erstellten Regexp

Question

Ich möchte eine kompilierte Regexp dynamisch erstellen. Nun, kein Problem:

Ich möchte es kompilieren, um Overhead bei wiederholten Anrufen zu vermeiden. Auch kein Problem:

$rx = qr/$rx/; 

Was ist das Problem - es ist zu lang für solch eine triviale Operation. Zwei Zeilen und zwei zusätzliche Male muss ich Variablenname erwähnen, also müsste ich es in allen 3 Positionen ändern, wenn ich mich entscheide, es umzubenennen.

Bisher habe ich kommen entweder mit einem Helfer-Funktion (die Nachteile haben würde immer noch von dieser Funktion irgendwo zu haben halten):

sub qr_expr { qr/$_[0]/ } 
# and later 
my $rx = qr_expr(join('|', keys %replacement_hash)); 

oder nur einfach die gleiche Funktion inlining wo ich es brauche:

my $rx = sub{qr/$_[0]/}->(join('|', keys %replacement_hash)); 

Gibt es eine Möglichkeit, es prägnanter zu schreiben?

Answer 1

my ($re) = map qr/$_/, join '|', map quotemeta, @strings; 

Wahrscheinlich müssen Sie es nicht kompilieren.

Die meiste Zeit, Sie am Ende es in einem anderen Muster einbetten (z. B. /^$re\z/ oder /($re)/), zwingt das Muster neu kompiliert werden. (/$re/ kompiliert nicht, und auch nicht das Äquivalent =~ $re.)

Darüber hinaus zwischenspeichert Perl die kompilierte Form des letzten von ihm kompilierten Musters. Wenn das gleiche Muster erneut kompiliert werden soll, wird stattdessen die zwischengespeicherte Kopie zurückgegeben.

In diesen beiden Situationen wäre folgendes genügen:

my $pat = join '|', map quotemeta, @strings;