grep 和 map

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；