Perl 中的排序48

简介

Perl 中的 sort 函数用于对数组或列表中的元素进行排序。它根据指定的比较函数对元素进行排序，默认情况下，比较函数使用元素的自然排序顺序。

语法

sort 函数的语法如下：```
sort ARRAYREF
```

其中 ARRAYREF 是要排序的数组或列表的引用。例如：```
my @arr = (5, 3, 1, 2, 4);
my @sorted_arr = sort @arr;
```

比较函数

sort 函数可以接受一个可选的比较函数作为参数。比较函数是一个代码块，它采用两个元素作为参数并返回一个数字：
如果第一个元素小于第二个元素，则返回一个负数。
如果第一个元素等于第二个元素，则返回 0。
如果第一个元素大于第二个元素，则返回一个正数。

例如，要根据字符串长度对字符串数组进行排序，可以使用以下比较函数：```
sub compare_length {
my $len1 = length($a);
my $len2 = length($b);
return $len1 $len2;
}
my @arr = ("apple", "banana", "cherry");
my @sorted_arr = sort compare_length @arr;
```

排序方向

默认情况下，sort 函数按升序对元素进行排序。要按降序对元素进行排序，可以使用以下语法：```
sort { $b $a } ARRAYREF
```

例如，要按降序对数字数组进行排序，可以使用以下代码：```
my @arr = (5, 3, 1, 2, 4);
my @sorted_arr = sort { $b $a } @arr;
```

稳定排序

Perl 的 sort 函数是一个稳定的排序算法，这意味着如果两个元素相等，则它们的顺序在排序后保持不变。这对于保持相等元素的相对位置很有用。

示例

以下是 Perl 中使用 sort 函数的一些示例：
对数字数组进行升序排序：
```
my @arr = (5, 3, 1, 2, 4);
my @sorted_arr = sort @arr;
```
对字符串数组按长度升序排序：
```
my @arr = ("apple", "banana", "cherry");
sub compare_length {
my $len1 = length($a);
my $len2 = length($b);
return $len1 $len2;
}
my @sorted_arr = sort compare_length @arr;
```
对哈希表按键升序排序：
```
my %hash = ("apple" => 1, "banana" => 2, "cherry" => 3);
my @sorted_keys = sort { $a cmp $b } keys %hash;
```
对复杂自定义对象按指定字段升序排序：
```
class Person {
my $name;
my $age;
sub new {
my $class = shift;
my $self = {
_name => shift,
_age => shift,
};
bless $self, $class;
}
sub name {
my $self = shift;
return $self->{_name};
}
sub age {
my $self = shift;
return $self->{_age};
}
}
my @people = (
Person->new("Alice", 25),
Person->new("Bob", 30),
Person->new("Carol", 20),
);
sub compare_age {
my $p1 = shift;
my $p2 = shift;
return $p1->age() $p2->age();
}
my @sorted_people = sort compare_age @people;
```

注意事项

使用 sort 函数时，请注意以下注意事项：
如果比较函数返回 0，则元素的顺序保持不变。
如果比较函数抛出异常，则排序将终止并抛出异常。
sort 函数不会修改原始数组或列表。它返回一个排序后的新数组或列表。
要同时对多个字段排序，可以使用哈希引用作为比较函数的参数。例如，要同时按姓名和年龄对复杂对象数组进行排序，可以使用以下代码：
```
sub compare_name_and_age {
my $p1 = shift;
my $p2 = shift;
my $cmp1 = $p1->name() cmp $p2->name();
return $cmp1 if $cmp1 != 0;
return $p1->age() $p2->age();
}
my @sorted_people = sort compare_name_and_age @people;
```

2025-02-13

上一篇：掌握 Perl 指向：深化您的编程功力

下一篇：排除 Perl 依赖关系