【设计分享】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被区分出来

相关文章

1. 如何去重 #!/usr/bin/perl use strict; my %hash; while(...
最近写了一个perl脚本,实现的功能是将表格中其中两列的数据...
表的数据字典格式如下:如果手动写MySQL建表语句,确认麻烦,...
巡检类工作经常会出具日报,最近在原有日报的基础上又新增了...
在实际生产环境中,常常需要从后台日志中截取报文,报文的形...
最近写的一个perl程序,通过关键词匹配统计其出现的频率,让...