HASH(ハッシュ)や配列をわかりやすくprintしてくれるモジュール[perl]

Data::Dumperモジュールを使うと、ハッシュや配列などの変数の内容を見やすい形で出力することができます。

use Data::Dumper;

my $name = 'taro';

my $persons_ref = [  
    [ 'Tomo', 16, ], 
    [ 'Ken', 28, ],
];

my $age_hash_ref = {
    Tomo => 16,
    Ken => 28,
};

#1: スカラー変数を出力する
print "1 : スカラー変数を出力する\n";
print Data::Dumper->Dump( [ $name ] , [ '$name' ] );
                        # 変数 ↑     # 変数名 ↑
print "\n\n";

#2 配列のリファレンスを出力する
print "2 : 配列のリファレンスを出力する\n";
print Data::Dumper->Dump( [ $persons_ref ], [ '$persons_ref' ] );
print "\n\n";

#2' 配列のリファレンスをデリファレンスして出力する
print "2' : 配列のリファレンスをデリファレンスして出力する\n";
print Data::Dumper->Dump( [ $persons_ref ], [ '*persons' ] );
                 # 変数名の1文字目を*にするだけ↑
print "\n\n";

#3 ハッシュのリファレンスを出力する
print "3 : ハッシュのリファレンスを出力する\n";
print Data::Dumper->Dump( [ $age_hash_ref ], [ '$age_hash_ref' ] );
print "\n\n";

#3' ハッシュのリファレンスをデリファレンスして出力する
print "3' : ハッシュのリファレンスをデリファレンスして出力する\n";
print Data::Dumper->Dump( [ $age_hash_ref ], [ '*age_hash' ] );
                  # 変数名の1文字目を*にするだけ↑
print "\n\n";

#4 変数をまとめて出力する
print "4 : まとめて出力\n";
print Data::Dumper->Dump( 
                        [ $name, $persons_ref, $age_hash_ref ],
                        [ qw( $name *persons *age_hash ) ] 
                    );   # ↑
                         # qw() 演算子を使う 
                         #( '$name' '*persons' '*age_hash' ) と同じ意味