regex - 调试 Perl 正则表达式

Question

我正在尝试使用以下方法调试一些正则表达式:

perl -Mre=debug file.pl

file.pl脚本有很多正则表达式。其中一些是重复的。使用上述语法，file.pl 中的所有正则表达式都将被调试。

有没有办法告诉 Perl 仅调试脚本中的特定正则表达式？

我熟悉YAPE::Regex模块，但这不是我所需要的。所以请不要建议使用它。

Answer 1

与许多其他编译指示一样，您可以使用 no取消之前的使用。

use re 'debug';

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

no re 'debug';

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