Değişken isimlerini Perl'in Verileri :: Damper'de nasıl kontrol ederim?

Question

Bu basit Perl betiğim var:

#! /usr/bin/perl -w 

use strict; 
use Data::Dumper; 

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

print Dumper(\%foo); 

Çıktıları:

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

Bunu yerine nasıl çıktırabilirim?

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

Answer 1

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

uzatılmış sözdizimi iki arrayrefs sürer. Adın öneki * ile yazılıyorsa ve karşılık gelen skaler bir arrayref veya hashref ise, bir dizi veya karma atama üretilir.

Answer 2

Yrd'ın yanıtına ek olarak, Ovid'in Data::Dumper::Names modülünü de kullanabilirsiniz.

Answer 3

Ayrıca, Data::Dumper::Simple kabaca bunu yapar. Verilerin yerine)

Answer 4

use Data::Dumper; 

$Data::Dumper::Terse = 1; 

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