HASH排序

#!/usr/bin/perl

use strict;

my @pai;
my $hash =
{
    "ZIP2" => "ENIPV100R001C01131156_ASD_RUN_FFFFFFF_Linux.tar.gz",
    "ZIP1" => "ENIPV100R001C0113156_AS_RUN_Linux.tar.gz",
    "ZIP3" => "ENIVPFFFFFFFFFFFFFFF_FFFFFFFFFF_FFFFFFFFFF_FFFFFFFFF_Linux.tar.gz"
};


foreach (keys %{$hash})
{
    print $_." => ".${$hash}{$_}."\n";
}

@pai = &array($hash);


foreach(@pai)
{
    my $has = $_;
    print $_." ".${$has}{$_}."\n" foreach keys %{$has};
}


sub array {
   my $hash = shift @_;
   my @paixu = map { { ($_ => ${$hash}{$_}) } }
                sort {$a cmp $b} keys %{$hash};
                #如果是数字的话,要把上面的cmp改成 <=> 符号,一切就是这么简单

   return @paixu;
}