perl下map和grep的用法

map和grep都是列表处理函数，它们将一个列表转换成另一个列表。它们的语法如下：

map EXPRESSION,LIST;
map BLOCK,LIST;
grep EXPRESSION,LIST;
grep BLOCK,LIST;


map的目的是逐个转换列表中的元素，并产生一个新的列表作为结果，而grep是通过表达式或者程序块被计算为True或False值来返回原始列表的一个子集列表。

下面举例说明grep的有法:
[root@test doc2sort]# cat map.pl

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

my @numbers=(80,101,114,108);
print map {chr $_} @numbers;
print "\n";

[root@test doc2sort]# perl map.pl
Perl

当然我们也可以用foreach循环做同样的事，但map做的更简洁些。


grep的用法也是非常的简单:
[root@test doc2sort]# cat grep.pl

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

my @list=(80,101,"hello","world",114,108);
my @number=grep {/^\d+/} @list;
print "@number\n";
[root@test doc2sort]# perl grep.pl
80 101 114 108


当然我们也可以用map来实现:
my @number=map {/^\d+/?$_:()} @list;
注意到()是不返回任何东西。