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;