用List::Util 和 List::MoreUtils 简化列表处理

1.快速查找最大值，最小值

use List::Util qw(max min) ;
my $max_number = max ( 0 .. 1000 );
my $min_number =  min (0 .. 1000 );

此外还有maxstr子程序能返回列表中最大的字符串,minstr子程序返回列表中最小的字符串

use List::Util qw(maxstr);
my $max_string = maxstr(qw(Fido Spot Rover));

sum子程序所有数字求和

use List::Util qw(sum);
my $sum = sum ( 1.. 1000) ;

 

2.列表归并

    $foo = reduce { $a < $b ? $a : $b } 1..10       # min
    $foo = reduce { $a lt $b ? $a : $b } 'aa'..'zz' # minstr
    $foo = reduce { $a + $b } 1 .. 10               # sum
    $foo = reduce { $a . $b } @bar                  # concat

 

3. 判断是否有元素匹配

纯粹用Perl实现的话，找出列表中的第一个符合某项条件的元素，比找出所有符合条件的要麻烦一些。

first子程序就是为了解决这样的问题而设计的，并且会告诉第一个元素是什么。一旦找到答案理解停止。

    $foo = first { defined($_) } @list    # first defined value in @list
    $foo = first { $_ > $value } @list    # first value in @list which
                                          # is greater than $value

 

4.一次遍历多个列表

    @a = (1 .. 5);
    @b = (11 .. 15);
    @x = pairwise { $a + $b } @a, @b;   # returns 12, 14, 16, 18, 20

    # mesh with pairwise
    @a = qw/a b c/;
    @b = qw/1 2 3/;
    @x = pairwise { ($a, $b) } @a, @b;  # returns a, 1, b, 2, c, 3

对于三个及以上的列表可选用each_array 子程序

    my $ea = each_array(@a, @b, @c);
    while ( my ($a, $b, $c) = $ea->() )   { .... }

 

5.数组合并

    @x = qw/a b c d/;
    @y = qw/1 2 3 4/;
    @z = mesh @x, @y;       # returns a, 1, b, 2, c, 3, d, 4

    @a = ('x');
    @b = ('1', '2');
    @c = qw/zip zap zot/;
    @d = mesh @a, @b, @c;   # x, 1, zip, undef, 2, zap, undef, undef, zot