変数の内容を見やすく出力

---

　Data::Printerモジュールを使います。Data::Dumperモジュールよりも表示が見やすいです。

use strict;
use warnings;
use Data::Printer;

my $foo = {
    key1 => 'val1',
    key2 => [1, 2, 3],
    key3 => {a => 'A', b => 'B'},
};

p $foo;

# 出力結果
# 標準エラー出力に色つきで出力
# 標準出力に出す場合は p $foo の代わりに say p $foo
\ {
    key1   "val1",
    key2   [
        [0] 1,
        [1] 2,
        [2] 3
    ],
    key3   {
        a   "A",
        b   "B"
    }
}

---

関連項目

・変数の内容を出力