depuración de Perl expresiones regulares

Question

Estoy tratando de depurar algunas expresiones regulares usando:

perl -Mre=debug file.pl 

El guión file.pl tiene muchas expresiones regulares. Algunos de ellos se repiten. Usando la sintaxis anterior, todas las expresiones regulares en file.pl están siendo depuradas.

¿Hay alguna manera de decirle a Perl que depure solo una expresión regular determinada en un script?

Estoy familiarizado con el módulo YAPE :: Regex, pero eso no es lo que requiero. Entonces, por favor no sugieras usar eso.

Answer 1

Como con muchos otros pragmas, puede usar no para cancelar el anterior use.

use re 'debug'; 

$str=~/\d{3}/; 

no re 'debug'; 

$str=~/\d{3}/; 

Answer 2

A partir de las 5.9.5 Directiva utilizan re 'depuración' y sus equivalentes se alcance léxico, como los demás directivas.

Uso:

{ 
    use re 'debug'; 
    # Debugged regexp here. 
}