perl之grep函数的用法

转载至 perl中grep的详细用法

grep有2种表达方式：

1 grep BLOCK LIST
2 grep EXPR, LIST

BLOCK表示一个code块，通常用{}表示；EXPR表示一个表达式，通常是正则表达式。原文说EXPR可是任何东西，包括一个或多个变量，操作符，文字，函数，或子函数调用。

LIST是要匹配的列表。

grep对列表里的每个元素进行BLOCK或EXPR匹配，它遍历列表，并临时设置元素为$_。在列表上下文里，grep返回匹配命中的所有元素，结果也是个列表。在标量上下文里，grep返回匹配命中的元素个数。

例子1：将数组的每个元素的空格用_代替

my @arr=("Head PMA1","Head PMA2","Head PMA3","Head PMA4","Head PMA5","Head PMA6");
my @arr1=grep $_=~s/\s/_/g,@arr;
#元素个数
my $arr1_Lenght=@arr1;
print "@arr1:\n$arr1_Lenght";

输出结果
Head_PMA1 Head_PMA2 Head_PMA3 Head_PMA4 Head_PMA5 Head_PMA6: 
6

例子2：去除哈希所有键的_

my %IOtypes = ("D_O", 0, "A_O", 1, "D_I", 2, "A_I", 3);
#去除哈希所有键的_
foreach my $Io (grep $_=~s/_//g, keys %IOtypes )
{
   print "$Io\t";
}
  

输出结果

DO      AI      AO      DI