如何按给定顺序对列表进行排序?

本文介绍了如何按给定顺序对列表进行排序?的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

我正在尝试执行以下操作.我有一个预定义的列表，可以用作给定列表上的排序依据".

I'm trying to do the following. I have a predefined list to be used as a "order by" on an given list.

my @orderby = ( 'car', 'boat', 'chicken', 'cat', 'dog', 'mouse'); or my %orderby = ( 'car' => 0, 'boat' => 1, 'chicken' => 2, 'cat' => 3, 'dog' => 4, 'mouse' => 5); my @list = ('boat', 'car', 'mouse', 'chicken');

我尝试了无数种方式对它进行排序，但我没有得到想要的东西.我已经在Google和此处进行了搜索，但是没有找到答案.

I tried infinite ways to sort it and I didn't get what I want. I have searched on google, and here, but I did not found the answer.

@list需要以这种方式排序:

@list need to be sorted in that way:

sort @list using %orderby

排序后我想要的打印件:

The print that I want after the sort:

car, boat, chicken, mouse

顺便说一句，@ list可以有重复的条目:

BTW, @list can have duplicated entries:

my @list = ('boat', 'car', 'mouse', 'chicken', 'mouse', 'car');

在这种情况下，打印件必须为:

In that case, the print need to be:

car, car, boat, chicken, mouse, mouse

你们有解决方案吗? 或另一种方法. 谢谢！

Do you guys have a solution for that? or maybe another approach. Thanks!!

推荐答案

my @orderby = qw( car boat chicken cat dog mouse ); my @list = qw( boat car mouse chicken ); my %orderby = map { $orderby[$_] => $_ } 0..$#orderby; my @sorted = sort { $orderby{$a} <=> $orderby{$b} } @list;

或者如果您想弄乱人们的思想，

Or if you want to mess with people's minds,

my @orderby = qw( car boat chicken cat dog mouse ); my @list = qw( boat car mouse chicken ); my %counts; ++$counts{$_} for @list; my @sorted = map { ($_) x ($counts{$_}||0) } @orderby;