我正在使用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)
或者使用OO语法:
print Data::Dumper->new([ {-PARAMS => 1 } ])->Terse(1)->Dump;
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
1858 次 |
| 最近记录: |