perl - 如何在 perl 调试器的 < 操作中运行 `x` 命令？

Question

我想在调试器中显示提示之前输出一个半复杂的结构。显示它的最佳方式是使用 x命令，但该命令在该名称下不可用，或者它可能不在范围内。

我将如何做到这一点？

Answer 1

请参阅 < [command] 的文档在 perldebug :

< [ command ]

Set an action (Perl command) to happen before every debugger prompt.

x不是 Perl 命令。你想要 { [command] :

{ [ command ]

Set an action (debugger command) to happen before every debugger prompt.

例如:

$ perl -de'$foo = { foo => "bar" };
           print $foo'

Loading DB routines from perl5db.pl version 1.37
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(-e:1):   $foo = { foo => "bar" };
  DB<1> { x $foo
  DB<2> n
main::(-e:2):   print $foo
auto(-1)  DB<2> x $foo
0  HASH(0x22af2c8)
   'foo' => 'bar'

或者，使用您最喜欢的 dumper 模块(例如 Data::Dumper 、 Data::Dump 、 Data::Printer ):

$ perl -de'$foo = { foo => "bar" };
           print $foo'

Loading DB routines from perl5db.pl version 1.37
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(-e:1):   $foo = { foo => "bar" };
  DB<1> use Data::Dumper

  DB<2> < print Dumper $foo
  DB<3> n
main::(-e:2):   print $foo
$VAR1 = {
          'foo' => 'bar'
        };