perl - 在散列中的小写键值之前对大写字母进行排序

Question

我有一个散列，我想根据键进行排序，大写单词出现在小写单词之前。

例子:

简
简
吉姆
吉姆

Answer 1

要按顺序获取 key ，请申请 sort在散列的键上使用自定义排序功能。

my %hash = ( JANE => 1, jane => 2, JIM => 3, jim => 4 );
my @sorted_keys = sort {
    lc $a cmp lc $b
        || $a cmp $b
} keys %hash;

此 custom sort function首先比较字符串，就好像它们具有相同的大小写一样，如果相等，则考虑大小写。