perl: grep, map

grep:

my @odds = grep {$_ % 2} 1..10;

 

my @lines = grep {/\bfred\b/i} <FILE>;

my @lines = grep /\bfred\b/I, <FILE>;

 

map:

      map操作和grep非常类似，因为它们有相同类型的参数：一个使用$_的块，以及一列需要处理的元素。它们处理的方式也

是类似的，首先根据列表中的元素对块的值进行判断，每一次$_被赋予新的列表中的值。

      但使用块中最后一个表达式的值的方法是不同的：grep不是返回一个Boolean值，而是将计算的值作为返回结果。

      任何的grep或map语句均可以用foreach循环重新书写，每一次将结果元素放入一个临时数组中。

但短的方式通常更有效以及方便。由于map或grep的结果是列表，因此它可以直接传递给另一个函数。

e.g.

[omc@rocca ~]$ perl -e 'my @odds = grep {$_ % 2} 1..10; foreach my $tmp(@odds) {print "$tmp\n";}';                                          
1
3
5
7
9
[omc@rocca ~]$ perl -e 'my @odds = map {$_ % 2} 1..10; foreach my $tmp(@odds) {print "$tmp\n";}';                                           
1
0
1
0
1
0
1
0
1
0
[omc@rocca ~]$