perl按照健值排序

perl中如何将按hash key值排序

复制代码
BRUSH2  10752   11263
BUFFER  11264   11775
MEGASONIC       11776   12287
INPUTMODULE     12800   13823
DRYER   14336   14847
EFEM    14848   15359
WAFERINPUTE     15360   15871
STATIONROBOT    15872   16383
PIN     16384   16895
POUT    16896   17407
FLITBEAM        17408   18431
ITP     18432   19455
PLATEN  23040   23551
HEAD    26624   27135
PAD_CONDITIONER 28160   28671
SLURRY_ARM      30720   31231
WTP     33792   35327
CARRIER 35328   36863
SYSTEM  8192    8703
SCHEDULER       8704    9215
BRUSH1  9216    9727
复制代码

排序后的结果为

复制代码
SYSTEM  8192    8703
SCHEDULER       8704    9215
BRUSH1  9216    9727
BRUSH2  9728    10239
BUFFER  11264   11775
MEGASONIC       12288   12799
INPUTMODULE     12800   13823
DRYER   14336   14847
EFEM    14848   15359
WAFERINPUTE     15360   15871
STATIONROBOT    15872   16383
PIN     16384   16895
POUT    16896   17407
FLITBEAM        17408   18431
ITP     18432   19455
PLATEN  23040   23551
HEAD    25600   26111
PAD_CONDITIONER 28160   28671
SLURRY_ARM      31744   32255
WTP     33792   35327
CARRIER 35328   36863
复制代码
for my $key (sort{$H_SVID{$a}{MINID}<=>$H_SVID{$b}{MINID}} keys %H_SVID)#按照MINID(为数字,如果是字符串将<=>改为cmp)从大到小排列
{
   print "$key\t$H_SVID{$key}{MINID}\t$H_SVID{$key}{MAXID}\n";
}

 

posted @   WellMandala  阅读(107)  评论(0编辑  收藏  举报
编辑推荐:
· AI与.NET技术实操系列:基于图像分类模型对图像进行分类
· go语言实现终端里的倒计时
· 如何编写易于单元测试的代码
· 10年+ .NET Coder 心语,封装的思维:从隐藏、稳定开始理解其本质意义
· .NET Core 中如何实现缓存的预热?
阅读排行:
· 25岁的心里话
· 闲置电脑爆改个人服务器(超详细) #公网映射 #Vmware虚拟网络编辑器
· 零经验选手,Compose 一天开发一款小游戏!
· 因为Apifox不支持离线,我果断选择了Apipost!
· 通过 API 将Deepseek响应流式内容输出到前端
点击右上角即可分享
微信分享提示