02. Algorithm:Loops qw(Filter)

• Perl模块 Algorithm::Loops 中的 Filter 函数，其作用是过滤数组中的元素。

Algorithm::Loops 模块提供了一些用于数组和列表处理的有趣而强大的工具。Filter 函数特别用于根据指定的条件过滤数组的元素。

• Filter 函数接受一个子例程（匿名子程序或代码块），该子例程定义了过滤的条件。

• 下面代码的例子分别表示 s/a/X/G，a替换成X；将数组中的大于10的值提取出来。

#!/usr/bin/perl -w
use warnings;
use strict;

use Algorithm::Loops qw(Filter);


my @foo = qw(foo bar baz);

my @foo_ = Filter { s/a/X/g } @foo;

print join " - ", @foo_, "\n";
# foo - bXr - bXz

#在这个例子中，Filter 函数接受一个子例程（匿名子程序或代码块），该子例程定义了过滤的条件。在这里，我们使用 { $_ > 10 }，表示只保留大于 10 的元素。因此，@filtered_numbers 将包含原数组 @numbers 中符合条件的元素。
my @numbers = (1,5,9,12,15,20);
my @filter_numbers = Filter { $_ > 10 } @numbers;
print (join "-", @filter_numbers), "\n";