perl - 你如何对 Data::Dumper 的输出进行排序？

Question

我想转储我的对象和散列的值，但它一直在无序打印键。如何以(递归)排序顺序转储键？

use Data::Dumper;
print Dumper $obj;

Answer 1

套装$Data::Dumper::Sortkeys = 1获取 Perl 的默认排序顺序。
如果要自定义顺序，设置$Data::Dumper::Sortkeys到子例程的引用，该子例程接收对散列的引用作为输入，并按照您希望它们出现的顺序输出对散列键列表的引用。

# sort keys
$Data::Dumper::Sortkeys = 1;
print Dumper($obj);

# sort keys in reverse order - use either one
$Data::Dumper::Sortkeys = sub { [reverse sort keys %{$_[0]}] };
$Data::Dumper::Sortkeys = sub { [sort {$b cmp $a} keys %{$_[0]}] };
print Dumper($obj);