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

【问题标题】：How to prevent printing the variable name using `Data::Dumper`如何防止使用`Data::Dumper`打印变量名
【发布时间】：2012-04-10 18:17:00
【问题描述】：

我正在使用 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) ;

打印：

$1 = {
    '-UPDATE' => 0,
}

我想拥有：

{
    '-UPDATE' => 0,
}

【问题讨论】：

【解决方案1】：

只需设置$Data::Dumper::Terse = 1; 即可：

$ perl -MData::Dumper -wle '$Data::Dumper::Terse = 1; print Dumper {-PARAMS => 1}'
{
  '-PARAMS' => 1
}

【讨论】：

【解决方案2】：

或者使用OO语法：

print Data::Dumper->new([ {-PARAMS => 1 } ])->Terse(1)->Dump;

【讨论】：