我正在使用pdl2(
PDL shell)作为我的默认Perl交互式shell(它加载了所有漂亮的插件为
Devel::REPL).但我错过了x dumper-printing别名. p对于piddles是好的,但它不适用于正常的数组引用或散列引用.我已经加载了
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'
}
},'b' => 4
};
pdl> $Data::Dumper::Maxdepth = 1;
pdl> p Dumper $c
$VAR1 = {
'c' => 'HASH(0x97fba70)','b' => 4
};
在Perl debugger中,您可以直接与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插件,用于列出所有使用的变量(像调试器中的y,只有名字而不是值),然后有一个x-like来转储所需的变量？
解决方法
看起来Devel :: REPL为您的第一个问题提供了
straightforward alternative.在您的主目录中创建一个名为“.perldlrc”的文件,如下所示：
use Data::Dumper;
sub x {
my $depth = shift;
$Data::Dumper::Maxdepth = $depth;
print Data::Dumper->Dump([@_])
}
不幸的是,你需要一个逗号,如：
pdl> x 1,$c
看起来您可以使用相同的控制文件方法实现其他命令.我没有办法摆脱对逗号的需要,虽然我认为没有任何理由Devel :: REPL不能识别和解析这些命令.