当在子例程中隐式使用时，-1,0,1 如何帮助排序函数？

Question

我在使用子例程时遇到了一些麻烦，即使用 sort 函数对数字数组进行排序。我知道如果您单独使用排序函数，它会使用 ASCII 格式进行排序，正如书中所描述的那样，它的排序不是所需的顺序。我知道并理解使用 <=> 比较值返回的内容，甚至被引入 cmp 来处理字符串（尽管我没有使用过）还没有）。

我具体不明白的是它是如何对它们进行数字排序的——实际的过程。我理解返回的内容，但书上只是说它返回 -1、0 和 1，而没有具体说明这些数字最终如何排序为 1 8 24 72 144 288。

我的例子：

sub sort_by_number {
    return $a <=> $b;
}

@myArray = (1,24,8,144,72,288);

foreach(sort sort_by_number(@myArray)) {
    print("$_ ");
}

我完全理解的例子。这是完全有道理的，但我认为这主要是由于编码：

#!/usr/bin/perl

print("Please enter your name: ");
$name = <STDIN>;
chomp($name);
print("Please enter your age: ");
$age = <STDIN>;
chomp($age);

print(greeting($name, $age));

sub greeting {
    $msg = "Hello $_[0], ";
    determine_age($_[1],$msg);
}

sub determine_age {
    $num = ($_[0] <=> 18);
    if ($num == -1) {
        return "$_[1]you are under 18.($_[0])\n";
    } elsif ($num == 0) {
        return "$_[1]you will be a 19 on your next birthday!\n";
    } else {
        return "$_[1]you are over 18!($_[0])\n";
    }
}

如果有人能够澄清，我将非常感激。

Answer 1

您的第二个示例不进行任何排序。

要回答“如何对它们进行数字排序 - 实际过程？”，Perl内部使用合并排序算法实现排序（Perl 5.6之前是快速排序）。

该算法本身相当复杂（有关详细信息，请参阅 Wiki），但它最终会比较 2 个数字并确定一个是否比另一个大，并根据该决定执行一些操作。如果您对细节感到好奇，需要比较的算法部分是 Wiki 示例中的 if first(left) ≤ first(right) 行。

这就是自定义排序子例程的用武之地 - 它回答排序算法的“哪个数字更大”问题（或者更具体地说，一个数字是否小于或等于另一个数字）。

这种实现方式是，Perl 的 sort 将在内部调用“比较器”函数，并向其传递 2 个参数（通过别名 $a 和 $b);如果第一个小于、等于或大于第二个，则期望函数返回负数、零或正数。

Answer 2

<=> 是一个数字运算符。当您比较 $a <=>; $b，它将返回 -1、0 或 1，具体取决于左侧参数在数值上是否小于、等于或大于右侧参数。

sort 函数按对比较列表的元素，因此它需要一个带有两个参数（二元运算符）的比较函数。 Sort 不断比较对并重新排序，直到每个项目都比列表中的下一个项目“更大”。