Data::Dumper::Compact

デバッグ用に（主にリストやハッシュなど printで簡単に表示できない）変数の値をダンプする。レガシーなパッケージには Data::Dumperがあるが、Dara::Dumperよりも、かなり見やすい表示をしてくれる。

use Data::Dumper::Compact qw(ddc);
Date::Data::Compactパッケージをロードして、ddc関数をエクスポートする。

print ddc(\$any_variable);

$any_variableをダンプする。変数値ではなく、変数参照を渡すこと。

但し、しょうもないバグがあり、配列要素に '-' で始まる値があると、ハッシュキーとしてデコードしてしまう。

Dumper(@ary)
$VAR1 = [
　　　　'+data1',
　　　　'data2',
　　　　'-data3',
　　　　'data4',
　　　　'*data5',
　　　　'data6'
];
ddc(@ary)
[ '+data1', 'data2', -data3 => 'data4', '*data5', 'data6' ]