perl总结(4)--grep和map

1)介绍

2)grep-过滤数组

3)map-对数组中的内容做批量处理

4)"grep"和"map"的相似之处

5）一些相关例子

--------------------------------------------------------------------------------------

1)介绍

之前介绍过perl中的一个利器：正则表达式。它在处理文本时非常简洁实用，而我觉得perl中还有两个不得不说到的函数是“grep”和“map”，其在处理数组相关的问题时，特别强大和好用。其实在某个角度上来说，这两个函数都不能称之为函数，因为他们具备了近似操作符的功能。“grep”和“map”的使用太灵活，以至于这里我只能简单介绍一下它们的用法，举一些小例子，希望大家能对它们有一定了解。

--------------------------------------------------------------------------------------

2)grep

一句话概括“grep”函数的功能就是：它对数组内的元素进行筛选，挑选出其中符合一定条件的元素组成新的数组返回。

grep语法

grepBLOCKLIST
grepEXPR,LIST

使用例子如：

@positive_numbers=grep($_>0,@numbers);

可以在上例上看到，每个数组的元素都被记作"$_".这一点让你可以写出类似于Unix中“grep”的命令。又如：

@non_blank_lines=grep/\S/,@lines;

而且这里，grep后面还可以接由花括号括起来的一块代码段，而不是简单的一条条件语句。

@non_blank_lines=grep{/\S/}@lines;#和上例是一样的

上面的例子体现不出差别，但是代码块在你想写非常复杂的过滤条件（多条语句才能描述清楚）时是非常有用的。特别注意，这里代码块的返回结果其实是最后一条语句执行完后的结果。如下例：

#所有的正数都可以作为指数使用

#而负数只能在其为负整数的时候这样使用.

@can_be_used_as_exponent=grep{

if($_<0){

!/\./;#不含小数点.

}

else{

1;#总是为真

}

}@array;

-------------------------------------------------------------------------------------

3)map

“map”函数的功能是，对一个数组内的元素都做某个变换操作，之后得到一个新的数组返回。

map BLOCK LIST

map EXPR, LIST

BLOCK是一个用{}包围的代码块。EXPR可以是子函数名、正则表达式等。LIST是输入列表。

这里需要注意的是，一般情况下原始的数组里面的元素并不会被改变（除非你对$_直接操作）。如下为一个例子：

@lines_with_newlines=map($_."\n",@lines_without_newlines);

这里和上面介绍grep时一样，每个元素都被记作"$_"。

同样，“map”后也可接代码块，例如下例：

#替换"x@y.z"成"xatydotz"

@disguised_addresses=map{

my$email=$_;

$email=~s/\@/at/;

$email=~s/\./dot/g;

$email;

}@email_addresses;

这个地方需要提一下的时候，注意尽量不要在$_上直接进行正则的替换，不然原始的数组会被改变。

------------------------------------------------------------------------------------

4)"grep"和"map"的相似之处

"grep"和"map"在很多地方非常相似，他们都需要一部分代码(不管这里是简单的一个语句还是一个代码块)作为输入条件参数(对了，如果是一条语句的话，中间是需要一个逗号作为分离的，如果是一个代码块，代码块之后不用逗号)。

在“grep”和“map”中改变$_的值会改变原始数组中元素的值。但是我们看很多书籍或者程序员们都不鼓励大家这么做。

这里需要提一下的是，在map中你千万不要使用"s///"。因为"s///"操作符会改变"$_"而不是返回一个结果，所以你不会得到你所需要的东西。（当然，显而易见，你不能再grep中使用它）。

---------------------------------------------------------------------------------------

5)一些相关例子

例1：使用grep去除数组中重复元素

my@array=('a','b','c','a','d',1,2,5,1,5); my%count; my@uniq_times=grep{++$count{$_}<2;}@array;

这个例子很巧妙地利用count哈希记录数组中每个元素的频次，再使用grep进行筛选。

例2：从一堆点中抽取符合一定条件的点

例3：计算一系列文件的大小

例4：利用map和sort进行排序