perl value排序

最新推荐文章于 2025-11-16 09:08:23 发布

原创最新推荐文章于 2025-11-16 09:08:23 发布 · 955 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#perl #output #table

本文介绍了一个简单的Perl脚本，用于演示如何对哈希表进行排序并打印结果。通过使用特定的排序方法，脚本能够根据哈希表中的值对键进行排序。

这么简单的东西，长时间不用还是忘了，记录下，方便以后查找。
#!/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 table  
for (@keys){print "$_ -> $h{$_}/n"}