Perl中的HASH表按value排序输出

发布时间：2020-12-15 20:52:47 所属栏目：大数据来源：网络整理

导读：#!/usr/perl/binuse 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 hashmy @keys = sort { $h{$b} = $h{$a} } keys %h; #sort the hash tablefor (@keys

#!/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"}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!