perl 排序，字符串排序和数值排序

设为首页
点击收藏
手机版

手机扫一扫访问
迪恩网络手机版
关注官方公众号

微信扫一扫关注
公众号

登陆注册

快速发帖
客服电话

点击联系客服
在线时间：8:00-16:00

客服电话

132-9538-2358

电子邮件
[email protected]
APP下载

迪恩网络APP

随时随地掌握行业动态
官方微信

扫描二维码

关注迪恩网络微信公众号
问题反馈
返回顶部

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

foreach my $key (sort{$a cmp $b} keys %hash)
93 {
94     print FOUT "$key:\n";
95     my $rank=1;
96     foreach my $subkey(reverse sort{$hash{$key}{$a}<=>$hash{$key}{$b}}keys %{$hash{$key}})
97     {
98         print FOUT "\t$subkey\t$rank\n";
99         $rank++;
100     }
101     print FOUT "\n";
102 }