perl - Perl 脚本如何知道它是否在调试器中运行？

Question

我有一个脚本可以正常将 STDIN/STDOUT 重定向到文件。但是，如果不这样做，调试效率会高得多。是否有一个 $DB:xxx 变量或让脚本知道的东西，以便它可以表现不同？

Answer 1

我没有找到任何方法来确定他们的调试器是否直接运行，但您可以检查众所周知的调试器变量 $DB::single使用以下存在:

if ($DB::{single}) {
   say "Debugging";
}

另一种方法是检查调试器模块是否已加载。

if ($INC{"perl5db.pl"}) {
   say "Debugging";
}