Bagaimana saya bisa mencetak konten hash di Perl?

Saya terus mencetak hash saya sebagai # kotak / # yang dialokasikan. Bagaimana cara mencetak konten hash saya?

Tanpa menggunakan whileperulangan akan lebih disukai (misalnya, satu-liner akan lebih baik).

Data :: Dumper adalah teman Anda.

use Data::Dumper;
my %hash = ('abc' => 123, 'def' => [4,5,6]);
print Dumper(\%hash);

akan menampilkan

$VAR1 = {
          'def' => [
                     4,
                     5,
                     6
                   ],
          'abc' => 123
        };

Mudah:

print "$_ $h{$_}\n" for (keys %h);

Elegan, tapi sebenarnya 30% lebih lambat (!):

while (my ($k,$v)=each %h){print "$k $v\n"}

Di sini bagaimana Anda dapat mencetak tanpa menggunakan Data::Dumper

print "@{[%hash]}";

Untuk keperluan debugging, saya akan sering menggunakan YAML.

use strict;
use warnings;

use YAML;

my %variable = ('abc' => 123, 'def' => [4,5,6]);

print "# %variable\n", Dump \%variable;

Hasil dalam:

# %variable
---
abc: 123
def:
  - 4
  - 5
  - 6

Lain kali saya akan menggunakan Data::Dump. Anda tidak perlu mengatur sebanyak mungkin variabel untuk mengeluarkannya dalam format yang bagus daripada yang Anda lakukan Data::Dumper.

use Data::Dump = 'dump';

print dump(\%variable), "\n";

{ abc => 123, def => [4, 5, 6] }

Baru-baru ini saya telah menggunakan Data::Printeruntuk debugging.

use Data::Printer;
p %variable;

{
    abc   123,
    def   [
        [0] 4,
        [1] 5,
        [2] 6
    ]
}

(Hasilnya bisa jauh lebih berwarna di terminal)

Berbeda dengan contoh-contoh lain yang telah saya perlihatkan di sini, yang ini dirancang secara eksplisit hanya untuk tujuan tampilan. Yang muncul lebih mudah jika Anda membuang struktur variabel terikat atau objek.

use strict;
use warnings;

use MTie::Hash;
use Data::Printer;

my $h = tie my %h, "Tie::StdHash";
@h{'a'..'d'}='A'..'D';
p %h;
print "\n";
p $h;

{
    a   "A",
    b   "B",
    c   "C",
    d   "D"
} (tied to Tie::StdHash)

Tie::StdHash  {
    public methods (9) : CLEAR, DELETE, EXISTS, FETCH, FIRSTKEY, NEXTKEY, SCALAR, STORE, TIEHASH
    private methods (0)
    internals: {
        a   "A",
        b   "B",
        c   "C",
        d   "D"
    }
}

Jawabannya tergantung pada apa yang ada di hash Anda. Jika Anda memiliki hash sederhana, sederhana

print map { "$_ $h{$_}\n" } keys %h;

atau

print "$_ $h{$_}\n" for keys %h;

akan dilakukan, tetapi jika Anda memiliki hash yang diisi dengan referensi Anda akan sesuatu yang bisa berjalan referensi tersebut dan menghasilkan output yang masuk akal. Referensi berjalan ini biasanya disebut serialisasi. Ada banyak modul yang menerapkan gaya yang berbeda, beberapa yang lebih populer adalah:

• Data::Dumper
• Data::Dump::Streamer
• YAML::XS
• JSON::XS
• XML::Dumper

Karena fakta yang Data::Dumpermerupakan bagian dari perpustakaan inti Perl, itu mungkin yang paling populer; Namun, beberapa modul lain memiliki hal-hal yang sangat baik untuk ditawarkan.

Favorit saya: Cerdas :: Komentar

use Smart::Comments;
# ...

### %hash

Itu dia.

Looping:

foreach(keys %my_hash) { print "$_ / $my_hash{$_}\n"; }

Fungsional

map {print "$_ / $my_hash{$_}\n"; } keys %my_hash;

Tapi untuk keanggunan belaka, saya harus memilih wrang-wrang. Untuk kode saya sendiri, saya akan memilih foreach saya. Atau gunakan Dumper tetro.

Cara termudah dalam pengalaman saya adalah dengan hanya menggunakan Nilai Dump .

use Dumpvalue;
...
my %hash = { key => "value", foo => "bar" };
my $dumper = new DumpValue();
$dumper->dumpValue(\%hash);

Bekerja seperti pesona dan Anda tidak perlu khawatir tentang memformat hash, karena menghasilkan seperti hash debugger Perl (bagus untuk debugging). Plus, Dumpvalue disertakan dengan set modul Perl, jadi Anda tidak perlu mengacaukan CPAN jika Anda berada di belakang semacam proxy kejam (seperti saya di tempat kerja).

Jika Anda ingin menjadi orang yang bertele-tele dan menjaganya tetap pada satu baris (tanpa menggunakan statemen dan shebang), maka saya akan menyortir piggy dari jawaban tetromino dan menyarankan:

print Dumper( { 'abc' => 123, 'def' => [4,5,6] } );

Tidak melakukan sesuatu yang istimewa selain menggunakan hash anonim untuk melewati variabel temp;)

Saya menambahkan satu ruang untuk setiap elemen hash untuk melihatnya dengan baik:

print map {$_ . " "} %h, "\n";

Saya sangat suka mengurutkan kunci dalam satu kode liner:

print "$_ => $my_hash{$_}\n" for (sort keys %my_hash);