Wie kann ich den Inhalt eines Hash in Perl drucken?

Ich drucke meinen Hash weiterhin als Anzahl der zugewiesenen Eimer. Wie drucke ich den Inhalt meines Hash?

Ohne Verwendung einer whileSchleife wäre am meisten vorzuziehen (zum Beispiel wäre ein Einzeiler am besten).

Data :: Dumper ist dein Freund.

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

wird ausgegeben

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

Einfach:

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

Elegant, aber tatsächlich 30% langsamer (!):

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

Hier erfahren Sie, wie Sie ohne Verwendung drucken können Data::Dumper

print "@{[%hash]}";

Zum Debuggen werde ich oft verwenden YAML.

use strict;
use warnings;

use YAML;

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

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

Ergebnisse in:

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

Andere Male werde ich verwenden Data::Dump. Sie müssen nicht so viele Variablen festlegen, damit es in einem schönen Format ausgegeben wird, als Sie es tun Data::Dumper.

use Data::Dump = 'dump';

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

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

In jüngerer Zeit habe ich Data::Printerzum Debuggen verwendet.

use Data::Printer;
p %variable;

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

(Ergebnis kann auf einem Terminal viel bunter sein)

Im Gegensatz zu den anderen Beispielen, die ich hier gezeigt habe, dient dieses Beispiel explizit nur zur Anzeige. Dies wird leichter angezeigt, wenn Sie die Struktur einer gebundenen Variablen oder die eines Objekts ausgeben.

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

Die Antwort hängt davon ab, was in Ihrem Hash enthalten ist. Wenn Sie einen einfachen Hash haben, einen einfachen

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

oder

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

wird tun, aber wenn Sie einen Hash haben, der mit Referenzen gefüllt ist, werden Sie etwas, das diese Referenzen durchlaufen und eine vernünftige Ausgabe erzeugen kann. Dieses Durchlaufen der Referenzen wird normalerweise als Serialisierung bezeichnet. Es gibt viele Module, die unterschiedliche Stile implementieren. Einige der beliebtesten sind:

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

Aufgrund der Tatsache, dass Data::Dumperes Teil der Perl-Kernbibliothek ist, ist es wahrscheinlich die beliebteste. Einige der anderen Module haben jedoch sehr gute Dinge zu bieten.

Mein Favorit: Smart :: Kommentare

use Smart::Comments;
# ...

### %hash

Das ist es.

Looping:

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

Funktionell

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

Aber für pure Eleganz müsste ich Wrang-Wrang wählen. Für meinen eigenen Code würde ich meinen foreach wählen. Oder Tetro Dumper verwenden.

Nach meinen Erfahrungen ist es am einfachsten, nur Dumpvalue zu verwenden .

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

Funktioniert wie ein Zauber und Sie müssen sich keine Gedanken über das Formatieren des Hashs machen, da er wie der Perl-Debugger ausgegeben wird (ideal zum Debuggen). Außerdem ist Dumpvalue im Standardsatz der Perl-Module enthalten, sodass Sie sich nicht mit CPAN herumschlagen müssen, wenn Sie sich hinter einem drakonischen Proxy befinden (wie ich bei der Arbeit bin).

Wenn Sie pedantisch sein und es in einer Zeile halten möchten (ohne Use Statements und Shebang), dann werde ich mich von Tetrominos Antwort zurückziehen und vorschlagen:

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

Ich mache nichts Besonderes als den anonymen Hash, um die temporäre Variable zu überspringen;)

Ich füge jedem Element des Hash ein Leerzeichen hinzu, um es gut zu sehen:

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

Ich mag es wirklich, die Schlüssel in einem Liner-Code zu sortieren:

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