perl - 按数字顺序降序排列,然后按字母顺序排列
问题描述:
好的,这里有一项任务:取一个平面数据文件并根据数组中某个元素的数值排序内容,然后按字母顺序排序(同时保留降序数值排序顺序)。perl - 按数字顺序降序排列,然后按字母顺序排列
数据文件是这样的:
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
我在亏损,并不能真正找到任何解决我需要什么在这里做。我很感激在解决这个任何人的输入。
答
首先,将字符串分隔成你要比较的部分。然后,比较部分。
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;
在* nix中,你可以使用'排序-t \ * -k3rn -k2,2'。 – cuonglm