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循环重新书写,每一次将结果元素放入一个临时数组中。
但短的方式通常更有效以及方便。由于的结果是列表,因此它可以直接传递给另一个函数。
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 ~]$