Perlでハッシュの内容を出力するにはどうすればよいですか？

＃割り当てられたバケット数/＃としてハッシュを印刷し続けます。ハッシュの内容を印刷するにはどうすればよいですか？

whileループを使用しないことが最も望ましいでしょう（たとえば、ワンライナーが最適です）。

Data :: Dumperはあなたの友達です。

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

出力されます

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

簡単：

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

エレガントですが、実際には30％遅くなります（！）：

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

ここでは、使用せずに印刷する方法 Data::Dumper

print "@{[%hash]}";

デバッグの目的で、私はしばしば使用しますYAML。

use strict;
use warnings;

use YAML;

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

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

結果：

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

その他の場合は使用しますData::Dump。の場合ほど多くの変数を設定して、適切な形式で出力する必要はありませんData::Dumper。

use Data::Dump = 'dump';

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

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

最近ではData::Printer、デバッグに使用しています。

use Data::Printer;
p %variable;

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

（端末では結果がはるかにカラフルになる可能性があります）

ここで示した他の例とは異なり、この例は表示のみを目的として明示的に設計されています。tieされた変数の構造またはオブジェクトの構造をダンプすると、より簡単に表示されます。

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

答えはハッシュの内容によって異なります。単純なハッシュがある場合、単純な

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

または

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

でも、参照が入力されているハッシュがある場合、それらの参照をウォークして適切な出力を生成できるものになります。参照のこのウォーキングは通常、シリアル化と呼ばれます。さまざまなスタイルを実装する多くのモジュールがあり、より一般的なものは次のとおりです。

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

事実によるData::DumperコアPerlライブラリの一部であり、それはおそらく最も人気があります。ただし、他のモジュールのいくつかは非常に優れた機能を備えています。

私のお気に入り：Smart :: Comments

use Smart::Comments;
# ...

### %hash

それでおしまい。

ループ：

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

機能的

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

しかし、純粋な優雅さのために、私はラングラングのものを選ばなければならないでしょう。私自身のコードでは、自分のforeachを選択します。またはテトロのダンパーの使用。

私の経験では、最も簡単な方法はDumpvalueを使用することです。

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

チャームのように機能し、Perlデバッガーが行うようにハッシュを出力するため（デバッグに最適）、ハッシュのフォーマットを心配する必要はありません。さらに、DumpvalueはPerlモジュールのストックセットに含まれているので、ある種の厳しいプロキシ（私が働いているような）の背後にいる場合は、CPANをいじる必要はありません。

あなたが徹底的にそれを1行に保ちたい場合は（useステートメントとシバンなしで）、私はテトロミノの答えからちょっと背を向けて提案します：

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

匿名ハッシュを使用して一時変数をスキップする以外は何もしません;）

ハッシュの要素ごとに1つのスペースを追加して、よく見えるようにします。

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

キーを1つのライナーコードで並べ替えるのが本当に好きです。

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