perl - 按数字顺序降序排列，然后按字母顺序排列

Question

好的，这里有一项任务：取一个平面数据文件并根据数组中某个元素的数值排序内容，然后按字母顺序排序（同时保留降序数值排序顺序）。

数据文件是这样的：

data1*oranges*3 
data2*zebras*23 
data3*apples*456 
data4*pears*2 
data5*orangutans*3 
data6*peaches*1 

因此，我们要输出为：

data3*apples*456 
data2*zebras*23 
data1*oranges*3 
data5*orangutans*3 
data4*pears*2 
data6*peaches*1 

我在亏损，并不能真正找到任何解决我需要什么在这里做。我很感激在解决这个任何人的输入。

Answer 1

首先，将字符串分隔成你要比较的部分。然后，比较部分。

my @sorted = sort { 
    my @fields_a = split /\*/, $a; 
    my @fields_b = split /\*/, $b; 
    $fields_b[2] <=> $fields_a[2] || $fields_a[1] cmp $fields_b[1] 
} @unsorted; 

少重复的工作：

my @sorted = 
    map $_->[0], 
    sort { $b->[3] <=> $a->[3] || $a->[2] cmp $b->[2] 
    map [ $_, split /\*/ ], 
    @unsorted;