Perl grep

在Perl中，我们可以把很长的代码缩写成很小的片段，这就是Perl有时候看上去很复杂和简洁的原因。以下是Perl的grep一个用法。大家都知道在Linux系统中，也有一个同名的grep命令，它是一个非常不错的命令，同样Perl 的grep也一样。

假如你要从一堆数据中取出唯一的一个数，我们传统的Perl的写法像下面这样：

#!d:/perl/bin/perl.exe
use 5.10.0;
@a=(1..4,2..6,3..10);
foreach(@a){
??? %num;
??? if (++($num{$_}) ==1){
??? ??? push @b,$_;
??? }else{
??? ??? next;
??? }???
}
say @b;

它看上去非常的冗长，但毕竟也完成了我们要做的事情，但是如果你是追求简单的Perl爱好者，或者你会对上面的代码加以考量。因为简洁可以让你少打些字。

改量后的程序：

@b=grep {++$num{$_}==1} (1..4,3..10);
say @b;

看上去似乎美观多了，但这是建立在你对grep这个函数（它是函数吗？）的理解上。下面来唠叨下它的两种基本用法。

第一种：grep BLOCK LIST
第二种：grep EXPR,LIST

像上面第一种就是我们刚才所使用的风格，它的BLOCK就是{}里的内容，后面的LIST，是一个列表。这样每次循环时列表里的内容都会在{}进行处理，grep会返回一个列表。也就是被处理过后的结果应该是一个列表。当然在perl世界里，有上下文之分，我想你应该明白我说的是什么意思了吧。

第二种风格也经常使用，EXPR可以是一个表达式，或者一个正则，注意EXPR之后的逗号。它的处理方式跟第一种没什么差别。不再多说。

有时候简洁是一种美，但如果代码看起来让人费解，那也让人疯狂。特别是在维护代码的 时候，所以要适度。