C'è un modo per precompilare una regex in Perl?

Question

C'è un modo per precompilare una regex in Perl? Ne ho uno che uso molte volte in un programma e non cambia tra gli usi.

Answer 1

Per letterale (statico) regex non c'è niente da fare - perl compilerà solamente una volta.

Per le regex memorizzate nelle variabili sono disponibili un paio di opzioni. È possibile utilizzare l'operatore qr// di costruire un oggetto di espressione regolare:

my $re = qr/foo|bar/; 

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

Questo è utile se si desidera utilizzare una regex in più luoghi o passarlo a subroutine.

Se l'espressione regolare è in una stringa è possibile utilizzare l'opzione /o a promettere perl che non potrà mai cambiare:

my $pattern = 'foo|bar'; 

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

Di solito è meglio non farlo, però. Perl è abbastanza intelligente da sapere che la variabile non è cambiata e che la regex non ha bisogno di essere ricompilata. Specificare /o è probabilmente un micro-ottimizzazione prematuro. È anche una potenziale trappola. Se la variabile è stata modificata con utilizzando /o, il perl utilizzerà comunque la regex precedente. Ciò potrebbe portare a una diagnosi difficile dei bachi.

Answer 2

Semplice: controllare l'operatore qr // (documentato in perlop in Regexp Quote-Like Operators).

my $regex = qr/foo\d/; 
$string =~ $regex;