是否有相当于 perl 调试器 'x' 的工具？在pdl2（或Devel::REPL）中？

Question

我也使用 pdl2 （PDL shell）我的默认 Perl 交互式 shell（它加载 Devel::REPL 的所有不错的插件）。但我缺少 x dumper-printing 别名。 p 对于 piddle 来说很好，但对于普通的数组引用或哈希引用不起作用。我已经加载了 Data::Dumper 但它缺乏一种简单的方法控制深度，我喜欢使用 x 快速设置深度限制的方式，例如对于复杂数据结构的 x 2 $deep_datastruct 。但使用 Data::Dumper 过程就更麻烦了：

pdl> say $c
HASH(0x53b0b60)

pdl> p $c
HASH(0x12b14018)

pdl> use Data::Dumper

pdl> p Dumper $c
$VAR1 = {
          'c' => {
                   'c' => 3,
                   'a' => 1,
                   'b' => {
                            'c' => '3',
                            'a' => '1',
                            'b' => '2'
                          }
                 },
          'a' => 1,
          'b' => 4
        };
pdl>  $Data::Dumper::Maxdepth = 1;
pdl> p Dumper $c
$VAR1 = {
          'c' => 'HASH(0x97fba70)',
          'a' => 1,
          'b' => 4
        };

在 Perl 调试器 中，你可以直接使用 x 1 $c 实现同样的效果。 pdl2 有类似且简洁的东西吗？

[更新] 与这个问题相关：pdl2 或 Devel::REPL 是否具有像 Perl 调试器命令 m 或 y 这样的便利功能代码>?或者应该使用 PadWalker 创建一个模块并导出它们？我想使用真正的 REPL 而不是 Perl 调试器作为交互式 shell，但 Perl 调试器仍然有一些重要的事情，我不知道如何使用 Devel::REPL 或 <代码>pdl2。

例如，查看所有变量（pdl2 仅显示 piddles）：

pdl> help vars
PDL variables in package main::

Name         Type   Dimension       Flow  State          Mem
----------------------------------------------------------------
no PDL objects in package main::

顺便说一句，有人知道一个 Devel::REPL 插件用于列出所有正在使用的变量（例如 < code>y 在调试器中，但只有名称，而不是值），然后有一个 x 之类的来转储想要的？

Answer 1

看起来 Devel::REPL 提供了 直接替代您的第一个问题。在您的主目录中创建一个名为“.perldlrc”的文件，如下所示：

use Data::Dumper;

sub x { 
  my $depth = shift;
  $Data::Dumper::Maxdepth = $depth;
  print Data::Dumper->Dump([@_])
}

不幸的是，您需要一个逗号，如下所示：

pdl> x 1, $c

看起来您可以使用相同的控制文件方法来实现其他命令。我没有找到一种方法来消除对逗号的需要，尽管我认为没有任何理由不能使 Devel::REPL 识别和解析这些类型的命令。

Answer 2

默认情况下，Devel::REPL shell re.pl 已经转储最后一个表达式的值：

[foo@host]$ re.pl
$ { a => 23, b => 34}
$HASH1 = {
           a => 23,
           b => 34
         };

$