先谢谢你
这个是按ASC码排出来的,比如1,11,111,2,22.。我想按数字大小排怎么弄?
哈! 也是个好追问.. Perl 的 scalar 是可以使用 sub reference 的.
所以, 我会这麼做
$Data::Dumper::Sortkeys= sub{[sort {$a $b} keys %{$_[0]}]};
然後还是 print Dumper... 啦
如果要倒序出来, 就将 $a 和 $b 对调啦.
哈哈我一直刷新你可算回了,虽然不太理解$_[0]这个东西不过总算排出来了 我都要哭了。持续关注,又不懂得我就问你了~
追答如果说 sort {$a $b} keys %hash, 你能理解吗 ? 这个不难对吧!
那再深入一点说 sort {$a $b} keys %{$obj} 呢 ?
$x = {
A => 123,
B => 456
};
试试 print "$_ " sort {$a $b} keys %{$x} ;
最後就是
sub simpleDump {
print "$_ " sort keys %{$_[0]}; # 这个 $_[0] 即是 @_ 的第 1 个
}
simpleDump ( $x ) ;