加载中…
个人资料
wwwsky86_225
wwwsky86_225
  • 博客等级:
  • 博客积分:0
  • 博客访问:9,899
  • 关注人气:2
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
相关博文
推荐博文
正文 字体大小:

perl 二维哈希

(2011-09-10 20:55:20)
标签:

杂谈

二维哈希:使用$hash{$key1}{$key2} = $value;

遍历(注意加粗与加下划线的语句)
foreach my $key1 (sort keys %hash) #首先对key1进行排序
   
     foreach my $key2 (sort {$hash{$key1}->{$b}<=>$hash{$key1}->{a}} keys %{$hash{$key1}}) #对value值按照数字大小进行逆序排序

   foreach my $key2 (sort {$a<=>$b} keys %{$hash{$key1}}  #对key2按照数字大小进行排序
    {
        print $key1."\t".$key2."\t".$hash{$key1}->{$key2}."\n";
    }
}

对比单维哈希
foreach my $key (sort{$hash{$b}<=>$hash{$a}} keys %hash)
{
    print $key."\t".$hash{$key}."\n";
}

对比数组

方法一:@array2 = sort(@array)

方法二(遍历)

foreach my $a (sort @array){

       print $a. "\t";

}

0

阅读 评论 收藏 转载 喜欢 打印举报/Report
  • 评论加载中,请稍候...
发评论

    发评论

    以上网友发言只代表其个人观点,不代表新浪网的观点或立场。

      

    新浪BLOG意见反馈留言板 电话:4000520066 提示音后按1键(按当地市话标准计费) 欢迎批评指正

    新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

    新浪公司 版权所有