perl 哈希按照 keys/values 排序

这里就用perl自带的DATA句柄做示例。

#!/usr/bin/perl
use strict;
use warnings;

my %hash;
my @arr;
while(<DATA>){
        chomp;
        my @line = split /\s+/,$_;
        $hash{$line[0].":".$line[1]} = $line[2];
        push @arr,%hash;
}

# sort hash by keys
foreach my $k(sort {$a cmp $b}keys %hash){
        print "$k\t$hash{$k}\n";
}

print "*" x 50,"\n";

# sort hash by values ; <=> for number, cmp for ascii

foreach my $k(sort {$hash{$a} <=> $hash{$b}} keys %hash){
        print "$k\t$hash{$k}\n";
}




__DATA__
chr1    1       10
chr1    100     2000
chr2    20      30
chr2    40      50
chr2    100     300
chr3    10      40
chr4    1000    1200

 结果：

chr1:1 10
chr1:100 2000
chr2:100 300
chr2:20 30
chr2:40 50
chr3:10 40
chr4:1000 1200
**************************************************
chr1:1 10
chr2:20 30
chr3:10 40
chr2:40 50
chr2:100 300
chr4:1000 1200
chr1:100 2000