Làm cách nào để kiểm soát tên biến trong Dữ liệu :: Dumper của Perl?

Question

Tôi đã có kịch bản đơn giản này Perl:

#! /usr/bin/perl -w 

use strict; 
use Data::Dumper; 

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

print Dumper(\%foo); 

Nó ra:

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

Làm thế nào để làm cho nó sản lượng này để thay thế?

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

Answer 1

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

Cú pháp mở rộng phải mất hai arrayrefs: một trong vô hướng để đổ, và một trong những tên sử dụng. Nếu tên được đặt trước bởi dấu * và vô hướng tương ứng là một arrayref hoặc hashref, một mảng hoặc gán băm được tạo ra.

Answer 2

Ngoài câu trả lời của ysth, bạn có thể sử dụng mô-đun Data::Dumper::Names của Ovid.

Answer 3

Ngoài ra, Data::Dumper::Simple thực hiện điều đó.

Answer 4

use Data::Dumper; 

$Data::Dumper::Terse = 1; 

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