Debugging Perl Regulärer Ausdruck

Question

Ich versuche, einige zu Debuggen von regulären Ausdrücken verwenden:

perl -Mre=debug file.pl 

Das file.pl Skript viele reguläre Ausdruck hat. Einige von ihnen wiederholen sich. Mit der obigen Syntax werden alle Regex in file.pl debuggt.

Gibt es eine Möglichkeit, Perl anzuweisen, nur eine bestimmte Regex in einem Skript zu debuggen?

Ich bin vertraut mit YAPE :: Regex-Modul, aber das ist nicht was ich brauche. Also bitte nicht vorschlagen, das zu benutzen.

Answer 1

Wie bei vielen anderen Pragmas können Sie no verwenden, um vorherige use abzubrechen.

use re 'debug'; 

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

no re 'debug'; 

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

Answer 2

Ab 5.9.5 der ‚debug‘ wiederzuverwenden Richtlinie und ihre Äquivalente sind lexikalische, wie die anderen Richtlinien sind.

Verwendung:

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