代码之家 › 专栏 › 技术社区 › raldi

如何控制Perl的Data::Dumper中的变量名?

data-dumper perl

raldi · 技术社区 · 16 年前

我有一个简单的Perl脚本:

#! /usr/bin/perl -w

use strict;
use Data::Dumper;

my %foo = ( 'abc' => 1 );

print Dumper(\%foo);

它输出:

$VAR1 = {
          'abc' => 1
        };

我如何让它输出这个呢?

%foo = (
         'abc' => 1
       );

4 回复 | 直到 13 年前

ysth 16 年前

print Data::Dumper->Dump( [ \%foo ], [ qw(*foo) ] );

扩展语法使用两个ArrayRef:一个要转储的标量,另一个要使用的名称。如果名称的前缀为*且相应的标量为arrayref或hashref,则会生成数组或哈希赋值。

Chas. Owens 16 年前

除了伊斯特的答案,你还可以使用奥维德的 Data::Dumper::Names

serenesat 10 年前

use Data::Dumper;

$Data::Dumper::Terse = 1;

print '%foo = '.(Dumper \%foo);

serenesat 10 年前

而且 Data::Dumper::Simple 大概就是这样。

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

3 年前

user17227456 · Perl CLI代码无法追加字符串行

3 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

3 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

3 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

3 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

3 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

3 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

7 年前

Pranay Nanda · 使用regex解析许可证文件

7 年前