小编Jon*_*han的帖子

我正在尝试做以下事情.我有一个预定义的列表,用作给定列表上的"order by".

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');

我尝试了无限的方式来对它进行排序,但我没有得到我想要的东西.我在谷歌上搜索过,但在这里,我没有找到答案.

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

sort @list using %orderby

排序后我想要的打印件:

car, boat, chicken, mouse 

BTW,@ list可以有重复的条目:

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

在这种情况下,打印需要是:

car, car, boat, chicken, mouse, mouse

你们有解决方案吗？或者另一种方法.谢谢!!