debugowania Perl Wyrażenie regularne

Question

Próbuję debugować kilka wyrażeń regularnych przy użyciu:

perl -Mre=debug file.pl 

Skrypt file.pl ma wiele wyrażeń regularnych. Niektóre z nich się powtarzają. Używając powyższej składni, debugowane jest całe wyrażenie w pliku file.pl.

Czy istnieje sposób, aby powiedzieć Perlowi, aby debugować tylko konkretne wyrażenie w skrypcie?

Jestem zaznajomiony z modułem YAPE :: Regex, ale to nie jest to, czego wymagam. Więc proszę, nie sugeruj tego.

Answer 1

Podobnie jak w przypadku wielu innych pragm, możesz użyć no, aby anulować poprzednią use.

use re 'debug'; 

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

no re 'debug'; 

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

Answer 2

Od 5.9.5 dyrektywy posługują ły „debug” i ich ekwiwalenty leksykalnie zawężona, a pozostałe dyrektyw.

Zastosowanie:

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