grep
grep 操作符使用一个表达式 “EXPR”和 一个值列表。它将列表中的每一项按照顺序依次取出，并放入$变量中。然后在标量上下文中对表达式运算，如果满足则grep会将$的值输入到结果列表中。
my @results=grep EXPR , @list;
my $results =grep EXPR , @list;
如上所示EXPR代表的是$_的标量表达式。
举个栗子
我们想要获得列表中大于5的数可以这样：
my @list=(1,2,3,4,5,6,7,8,9);
my results=grep $_ > 5 , @list;
同时也可以使用正则：
@test=('apple','veers','cat','fdf');
$num_apple = grep /^apple$/i, @test;
@test=('apple','veers','cat','fdf');
@num_apple = grep {/^apple/} @test;
以上两个例子是有区别的，一个是grep表达式后面有逗号，并且没有大括号，而后者没有,但是结果是一样的，如果结果用 “数组@” 接受这结果是满足表达式的结果，如果使用“标量@”则返回的是满足表达式的个数。
my $digit_sum=grep digit_sum($_),@list;
sub digit_sum{
my $input=shift;
my @digits = split //,$input;
my $sum;
$sum += $_ for @digits ;
return $sum%2;
}
上述所示表达式也可以是一个复杂的智子例程，该例程的计算所有位数之和除以2得到的余数为1，返回值为真。
my $digit_sum=grep{
my $input=$_;
my @digits = split //,$input;
my $sum;
$sum += $_ for @digits ;
$sum%2;
} @list;
## 省略中间变量
my $digit_sum=grep{
my $sum;
$sum += $_ for split // ;
$sum%2;
} @list;
使用语句块代替子例程。
map
map 操作符将一个列表转化为另一个，它的语法和grep操作符语法很类似，并且有很多共享的操作步骤。map操作符是把列表中的元素临时逐个放到$_中，并且允许使用表达式、子例程、语句块。
my @number=(1,2,3,4,5,6,9);
my @result = map $_ + 100 , @number;
@result得到的结果为：101,102,103,104,105,106,109每个数都加了100.
my @result = map {$_,3*$_} @number;
map并不是没一个值都只能有一个结果，@result结果1,3,2,6,3,9,4,12,5,15，6,18,9,27.
my %aa=@result ;
my %result = map {$_,3*$_} @number;
如果我们需要的是散列，也可以将@result保存为一个散列。
my @result = map{
my @digits = split //,$_;
if($digits [-1]==4){
@digits
}else{
();
}
} @number;
当然map也可以使用语句块，@result结果为4；
