perl下map和grep的用法

huifeideluotuo

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;
注意到()是不返回任何东西。

本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u/25264/showart_1771420.html