Come posso stampare il contenuto di un hash in Perl?

Continuo a stampare il mio hash come # di bucket / # allocato. Come faccio a stampare il contenuto del mio hash?

Senza usare un whileloop sarebbe preferibile (ad esempio, sarebbe meglio un one-liner ).

Data :: Dumper è tuo amico.

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

uscirà

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

Facile:

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

Elegante, ma in realtà più lento del 30% (!):

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

Ecco come è possibile stampare senza usare Data::Dumper

print "@{[%hash]}";

Per scopi di debug userò spesso YAML.

use strict;
use warnings;

use YAML;

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

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

Risultati in:

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

Altre volte userò Data::Dump. Non è necessario impostare quante più variabili per ottenere l'output in un formato piacevole di quello che si fa Data::Dumper.

use Data::Dump = 'dump';

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

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

Più recentemente ho usato Data::Printerper il debug.

use Data::Printer;
p %variable;

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

(Il risultato può essere molto più colorato su un terminale)

A differenza degli altri esempi che ho mostrato qui, questo è progettato esplicitamente per essere solo a scopo di visualizzazione. Che si presenta più facilmente se scarichi la struttura di una variabile legata o quella di un oggetto.

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"
    }
}

La risposta dipende da cosa c'è nel tuo hash. Se hai un hash semplice, un semplice

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

o

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

lo farà, ma se hai un hash che è popolato di riferimenti, avrai qualcosa che può camminare su quei riferimenti e produrre un risultato sensato. Questa camminata dei riferimenti è normalmente chiamata serializzazione. Esistono molti moduli che implementano stili diversi, alcuni dei più popolari sono:

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

A causa del fatto che Data::Dumperfa parte della libreria Perl di base, è probabilmente la più popolare; tuttavia, alcuni degli altri moduli hanno cose molto buone da offrire.

Il mio preferito: Smart :: Commenti

use Smart::Comments;
# ...

### %hash

Questo è tutto.

looping:

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

Funzionale

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

Ma per pura eleganza, dovrei scegliere quello di Wrang Wrang. Per il mio codice, sceglierei la mia foreach. O l'uso di Detro di Tetro.

Il modo più semplice nelle mie esperienze è usare solo Dumpvalue .

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

Funziona come un incantesimo e non devi preoccuparti di formattare l'hash, in quanto lo emette come fa il debugger Perl (ottimo per il debug). Inoltre, Dumpvalue è incluso nel set di moduli Perl, quindi non devi fare confusione con CPAN se sei dietro un qualche tipo di proxy draconiano (come se fossi al lavoro).

Se vuoi essere pedante e mantenerlo su una riga (senza dichiarazioni d'uso e shebang), allora mi sposterò un po 'sulla risposta del tetromino e suggerirò:

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

Non fare nulla di speciale oltre all'utilizzo dell'hash anonimo per saltare la variabile temp;)

Aggiungo uno spazio per ogni elemento dell'hash per vederlo bene:

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

Mi piace molto ordinare le chiavi in ​​un codice di copertina:

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