27、Perl 中 sort、map、grep 函数及包和模块的使用

Perl 中 sort、map、grep 函数及包和模块的使用

1. sort、map、grep 函数基础

sort、map 和 grep 是 Perl 中强大的函数，能将一个列表转换为新列表。sort 用于对数据列表进行排序，map 可将列表中的每个元素进行转换，生成新列表，grep 则用于筛选出符合特定条件的元素。

2. 函数的使用示例及优化

• grep 结合缓存优化 ：可以通过缓存来优化 grep 的使用。例如判断质数的函数，通过缓存已判断过的数，能提高后续判断的效率。

# 质数判断函数
sub is_prime {
    my $number = $_[0];
    return   if $number < 2;
    return 1 if $number == 2;
    for ( 2 .. int sqrt($number) ) {
        return if !($number % $_);
    }
    return 1;
}

my @numbers = qw( 3 2 39 7919 997 631 200 7919 459 7919 623 997 867 15 );
my @primes = grep { is_prime($_) } @numbers;
print join ', ' => sort { $a <=> $b } @primes;

• sort 避免“聪明反被聪明误”