perl - perl 中的自定义数组排序

Question

我有一个 perl 待办任务数组，如下所示:

@todos = (
  "1 (A) Complete online final @evm4700 t:2010-06-02",
  "3 Write thank-you t:2010-06-10",
  "4 (B) Clean t:2010-05-30",
  "5 Donate to LSF t:2010-06-02",
  "6 (A) t:2010-05-30 Pick up dry cleaning",
  "2 (C) Call Chris Johnson t:2010-06-01"
);

第一个数字是任务的 ID。如果任务旁边有 ([A-Z])，则定义任务的优先级。我想要做的是以将优先项目放在首位的方式对任务数组进行排序(并按优先级从 A - Z 降序排列):

@todos = (
  "1 (A) Complete online final @evm4700 t:2010-06-02",
  "6 (A) t:2010-05-30 Pick up dry cleaning",
  "4 (B) Clean t:2010-05-30",
  "2 (C) Call Chris Johnson t:2010-06-01"
  "3 Write thank-you t:2010-06-10",
  "5 Donate to LSF t:2010-06-02",
);

我不能使用普通 sort()由于任务旁边的那些 ID，所以我假设需要某种定制的排序子例程。但是，我对如何在 perl 中有效地做到这一点的了解很少。

谢谢，所有。

Answer 1

听起来您想要 Schwartzian transform :

@todos =
    map  { $_->[0] }
    sort { $a->[1] cmp $b->[1] or $a->[0] cmp $b->[0] }
    map  { [ $_, /^\d+ \(([[:alpha:]])\)/ ? $1 : "[" ] }
    @todos;

“[”是“Z”后面的字符；将此“优先级”赋予其他非优先项目将在优先项目之后对它们进行排序。

或者，也许更容易理解:

@todos =
    map { substr $_, 1 }
    sort
    map { (/^\d+ \(([[:alpha:]])\)/ ? $1 : "[") . $_ }
    @todos;