这么简单的东西,长时间不用还是忘了,记录下,方便以后查找。
#!/usr/perl/bin
use strict;
use Data::Dumper;
my %h=(
"Alex"=>24,
"Sam"=>25,
"Bob"=>30,
"Andy"=>11,
"Wills"=>35,
"Mary"=>16,
"Helen"=>24
);print(Dumper(/%h)); # output original hash
my @keys = sort { $h{$b} <=> $h{$a} } keys %h; #sort the hash tablefor (@keys){print "$_ -> $h{$_}/n"}
perl value排序
最新推荐文章于 2024-10-17 15:14:13 发布