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;