perl中grep函数的用法

用法：

grep BLOCK List
grep EXPR, List

遍历List中的元素，存于$_中。返回List中使BLOCK或EXPR为真的元素的子列表。

例如：

my @list = qw(apple banana pear);

my @return_list1 = grep /apple/,@list;

@return_list1中的元素则为qw(apple)，@list中的元素"apple"是/apple/为真。

my @return_list2 = grep {1} @list; #或
my @return_list2 = grep {0;0;1} @list;

@return_list2中的元素则为qw(apple banana pear)，无论@list中的元素为何，BLOCK均为真。

my @return_list3 = grep {0} @list; #或
my @return_list3 = grep {1;1;0} @list;

@return_list3中的元素则为空，无论@list中的元素为何，BLOCK均为假。

1. 可以用来判定列表中是否存在某个值；
   ... ...