Perl grep-Perl基地

ouzhoudijie

　　在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,2..6,3..10);
　　say @b;
　　看上去似乎美观多了，但这是建立在你对grep这个函数（它是函数吗？）的理解上。下面来唠叨下它的两种基本用法。
　　第一种：grep BLOCK LIST
　　第二种：grep EXPR, LIST
　　像上面第一种就是我们刚才所使用的风格，它的BLOCK就是{}里的内容，后面的LIST，是一个列表。这样每次循环时列表里的内容都会在{}进行处理，grep会返回一个列表。也就是被处理过后的结果应该是一个列表。当然在perl世界里，有上下文之分，我想你应该明白我说的是什么意思了吧。
　　第二种风格也经常使用，EXPR可以是一个表达式，或者一个正则，注意EXPR之后的逗号。它的处理方式跟第一种没什么差别。不再多说。
　　有时候简洁是一种美，但如果代码看起来让人费解，那也让人疯狂。特别是在维护代码的 时候，所以要适度。