HASH

在调试 Perl 程序时常常需要打印哈希表内容，虽然可以直接使用 foreach 打印，但数据复杂了就难办了，此时可以将 Hash 表转换为 json 文本再打印： use JSON; my $data = {'info'=> "test", 'struct' => {'test1'=>'test1', 'test2'=>'test2'}}; my $json = new JSON; #$json->sort_by(sub { ncmp($JSON::PP::a, $JSON::PP::b) }); my $json_text = $json->pretty->encode ($data); print $json_text; 如果没有 json 包需要安装一下： ...