【设计分享】perl中根据values数字值大小排列hash

在perl中，values数字值有可能是相同的，而key值也有可能相同，在这种情况下进行排序。

引用示例：文件design中第一列为cell的名字，第二列为instance的名字。第三列为对应的面积；

统计了这个design中使用了哪些cell，并且把它们按照单个cell面积大小，以从小到大的次序打印出来；

design：

buffd7 I_RISC_CORE/buffd7_G2B1I6
19.667700

buffda I_RISC_CORE/buffd7_G2B1I3
24.206400

buffd7 I_RISC_CORE/bufbd7_G2B1I5
19.667700

buffd4 I_RISC_CORE/buffd4_G2B1I4
12.103200

buffd4 I_RISC_CORE/bufbda_G2B1I2
12.103200

bufbd7 I_RISC_CORE/I_STACK_TOP/bufbda_G2B1I718.154800

dl01d1 I_RISC_CORE/I_DATA_PATH/U13
12.103200

dl01d1 I_RISC_CORE/I_DATA_PATH/U11
12.103200

dl01d1 I_RISC_CORE/I_DATA_PATH/U9
12.103200

dl01d1 I_RISC_CORE/I_DATA_PATH/U7
12.103200

dl01d1 I_RISC_CORE/I_DATA_PATH/U5
12.103200

dl01d1 I_RISC_CORE/I_DATA_PATH/U3
12.103200

dl01d1 I_RISC_CORE/I_DATA_PATH/U2
12.103200

dl01d1 I_RISC_CORE/I_INSTRN_LAT/U28
12.103200

dl01d1 I_RISC_CORE/I_INSTRN_LAT/U26
12.103200

dl01d1 I_RISC_CORE/I_INSTRN_LAT/U24
12.103200

dl01d1 I_RISC_CORE/I_INSTRN_LAT/U22
12.103200

dl01d1 I_RISC_CORE/I_INSTRN_LAT/U20
12.103200

dl01d1 I_RISC_CORE/I_INSTRN_LAT/U18
12.103200

dl01d1 I_RISC_CORE/I_INSTRN_LAT/U16
12.103200

dl01d1 I_RISC_CORE/I_INSTRN_LAT/U14
12.103200

dl01d1 I_RISC_CORE/I_INSTRN_LAT/U12
12.103200

dl01d1 I_RISC_CORE/I_INSTRN_LAT/U10
12.103200

dl01d1 I_RISC_CORE/I_INSTRN_LAT/U8
12.103200

dl01d1 I_RISC_CORE/I_INSTRN_LAT/U6
12.103200

dl01d1 I_RISC_CORE/I_INSTRN_LAT/U4
12.103200

dl01d1 I_RISC_CORE/I_INSTRN_LAT/U2
12.103200

..................................................................................................................

perl代码：

use 5.010;

use warnings;

use strict;

#################### Read file ############################

open my $READ_FILE,"<","/home/klin/Desktop/perl_test/0523/design" || die "$!\n" ;

my %cell;

while ( <$READ_FILE> ){

chomp;

my @tmp = split /\s+/,$_;

my $cell= shift @tmp;

my $area= pop @tmp;

$cell{$cell} = $area;

}

close $READ_FILE;

######## Different Cell May have The Same Area ##########

my @keys = sort { $cell{$a} <=> $cell{$b} } keys %cell; ## 改变a和b的位置，可以按从大到小的顺序排列

foreach(@keys){

printf "%-10s %-f\n",$_,$cell{$_};

}

运行结果：相同面积的不同cell被区分出来