如何在 bash 包装器中调试 perl

Question

我正在调试由 bash 脚本启动的 Perl 程序。因为Perl脚本由大量的Perl模块组成，需要提供极其复杂的选项，所以这里的bash包装器肯定是必要的。

由于这个限制，就我而言，我无法使用 Perl 调试器，这是我认为最简单的方法。然后我转向旧的好 printf。但是，即使我将 printf 从不同模块中的一个位置添加到另一个位置，实际上没有任何内容打印到我启动 bash 包装器的终端。

因此，我希望您首先解释一下为什么我无法从 Perl 脚本内部获取任何打印信息，以及如何解决我在这种情况下调试 Perl 程序的问题。

Answer 1

解释为什么我无法从 Perl 脚本内部获取任何打印信息

大概是您的 bash 脚本正在吞噬输出。

弄清楚 bash 正在做什么，并使用相同的参数和环境变量直接调用 perl。

Answer 2

Quick Bash Hack

应该可以将 STDOUT 和 STDERR 重定向到文件：

# Inside the bash script
perl myScript.pl 1>perl_log.out 2>perl_log.err

---

Quick Perl Hack

滚动一个子程序来打印调试输出：

use constant debug_flag => 1; # At top of script(s)

{  my $debug_handle;

    sub debug {

        return unless debug_active;  # Only prints debug msgs if debug active

        unless ( $debug_handle ) {   # Initialize debug log

            open $debug_handle, '>', 'perl_log.out' or die $!;
        }

        print $debug_handle @_, "\n";
    }
}

# call with 'debug'

debug ( 'Array length : ', scalar @array );

---

Perl 最佳实践

use Log::Log4perl;  # Wonderful logging module

和

use Carp;
local $SIG{__DIE__} = \&Carp::confess;  # Print out stack traces...
local $SIG{__WARN__} = \&Carp::cluck;   # ... when using die and warn

---

Qualm

最好 尽可能避免 printf 并使用 print相反。