如何使用`Data :: Dumper`防止打印变量名

Mar*_*mro 8 perl data-dumper

我正在使用Data::Dumper配置打印perl哈希,这将由另一个脚本进行评估.问题是它始终$VAR =在输出开始时打印.我尝试将Varname参数设置为空字符串,但后来我得到$1而不是$VAR.如何使用Dumper?阻止打印变量名称?

my $params = {-PARAMS => 0} #data

local $Data::Dumper::Purity = 1;
local $Data::Dumper::Varname  = "";
print Dumper($params) ;
Run Code Online (Sandbox Code Playgroud)

打印:

$1 = {
    '-UPDATE' => 0,
}
Run Code Online (Sandbox Code Playgroud)

我希望有:

{
    '-UPDATE' => 0,
}
Run Code Online (Sandbox Code Playgroud)

Seb*_*mpf 14

只需设置$Data::Dumper::Terse = 1;它应该工作:

$ perl -MData::Dumper -wle '$Data::Dumper::Terse = 1; print Dumper {-PARAMS => 1}'
{
  '-PARAMS' => 1
}
Run Code Online (Sandbox Code Playgroud)


yst*_*sth 6

或者使用OO语法:

print Data::Dumper->new([ {-PARAMS => 1 } ])->Terse(1)->Dump;
Run Code Online (Sandbox Code Playgroud)