perl总结(4)--grep和map

1)?介绍

2)?grep?-?过滤数组

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

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

5）一些相关例子

?????????????--------------------------------------------------------------------------------------

1)?介绍

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

?????????????--------------------------------------------------------------------------------------

2)?grep

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

? ? ? ?grep语法

? ? ? ?grep?BLOCK?LIST
? ? ? ?grep?EXPR,?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"?成"x?at?y?dot?z"?

???@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,?5?);?my?%count;?my?@uniq_times?=?grep?{?++$count{?$_?}?<?2;?}?@array;?

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

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

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

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