¿Hay alguna manera de precompilar una expresión regular en Perl?

Question

¿Hay alguna manera de precompilar una expresión regular en Perl? Tengo uno que utilizo muchas veces en un programa y no cambia entre usos.

Answer 1

Para las expresiones regulares (estáticas) no hay nada que hacer - perl solo las compilará una vez.

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

Para las expresiones regulares almacenadas en variables tiene un par de opciones. Usted puede utilizar el operador qr// para construir un objeto de expresiones regulares:

my $re = qr/foo|bar/; 

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

Esto es útil si desea utilizar una expresión regular en múltiples lugares o pasarlo a subrutinas.

Si el patrón de expresión está en una cadena que puede utilizar la opción /o prometer Perl que nunca va a cambiar:

my $pattern = 'foo|bar'; 

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

Por lo general es mejor no hacer eso, sin embargo. Perl es lo suficientemente inteligente como para saber que la variable no ha cambiado y que no es necesario volver a compilar la expresión regular. Especificar /o es probablemente una micro-optimización prematura. También es una trampa potencial. Si la variable tiene cambiado usando /o haría que perl use la antigua expresión regular de todos modos. Eso podría llevar a errores difíciles de diagnosticar.

Answer 2

Simple: Compruebe el operador qr // (documentado en perlop en Regexp Quote-Like Operators).

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