如何在调试器中使用 Perl 5.10 功能？

Question

我无法在 Perl 调试器中评估“现代 Perl”代码。调试文件中的代码时可以正常工作，但不能从提示符中调试。

小例子：

# Activating 5-10 features with -E (it works)
$  perl -E 'say "x"'
x

# 使用 -E 调用调试器 # 它适用于 infile 代码，但适用于提示行代码... $ perl -dEbug 从 perl5db.pl 1.33 版加载 DB 例程 数据库说“x” 在 (eval 16)[/local-perl/lib/5.12.1/perl5db.pl:638] 第 2 行，靠近“say”x“”的操作员预期的位置找到字符串 在 (eval 16)[/local-perl/lib/5.12.1/perl5db.pl:638] 第 2 行 eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package main; $^D = $^D | $DB::db_stop；说“x”；

（注意：“使用功能 ':5.10'”也是如此。）

我错过了什么吗？

Answer 1

我找到了对问题here 的引用，但它大约有一年的历史了。然而，Perl 源代码的相关部分从那时起就没有改变，可以在here 看到。本质上，如果您查看 Perl 源代码中的 toke.c，您会看到以下内容：

if (PL_perldb) {
    /* Generate a string of Perl code to load the debugger.
     * If PERL5DB is set, it will return the contents of that,
     * otherwise a compile-time require of perl5db.pl.  */

    const char * const pdb = PerlEnv_getenv("PERL5DB");
            ...
}
...
if (PL_minus_E)
    sv_catpvs(PL_linestr,
          "use feature ':5." STRINGIFY(PERL_VERSION) "';");

基本上，在处理-E 标志之前加载调试器，因此在加载调试器时这些功能尚未启用。要点是您目前不能将-E 与-d 命令一起使用。如果您想使用say、switch 或调试提示符中的任何其他功能，您必须这样做：

  DB<1> use feature 'say'; say "x"
  x

我见过的最接近解决方案的是：

1. 将 perl5db.pl 从 PERL5LIB 复制到 PERL5LIB 中的某个位置或当前目录，使用不同的名称，例如 myperl5db.pl 2. 编辑 myperl5db.pl 以使用功能 ':5.10'； （或只是“状态”，或只是“说”）在第一行。 3.设置环境变量PERL5DB为“BEGIN { require 'myperl5db.pl' }”

我在 PerlMonks 找到的。