由于在代码中经常用到foreach循环遍历数组，perl中还存在两个更为简单的遍历数组的函数。
1.map函数
a.语法规则
语法：map EXPR,LIST或map BLOCK LIST
返回值：列表上下文为列表，标量上下文是列表的元素个数
功能描述：map函数的功能主要是遍历list，每次遍历执行一次EXPR（表达式）或者BLOCK指
令块，最后返回EXPR计算后或BLOCK最后一行代码执行后的返回值组成的列表。
注意:map与foreach类似，$_ 为遍历过程中数组或列表的别名，如果遍历过程中更改了$_，则对应数组的值会相应改变。
b.map函数示例
@number=map $_+10,1..20； #将1..20的列表的每个元素加10，然后赋值给@number数组
map $_+=10,1..20 ； #列表元素都加10
@number=map {split//} 1..20 ； #将1..20列表的元素切成单个字符，赋值给数组，最后返回的数组是1-9，1，0，1，1一直到1，9，2，0
map {push @arr,$_ if $_>60} @number； #将数组中大于60的元素选出
2.grep 函数
a.语法规则
语法：grep EXPR,LIST或grep BLOCK list
返回值：列表上下文返回列表，标量上下文返回列表元素个数
功能描述：返回LIST中使EXPR的值或者BLOCK里最后一行代码运算结果为真的值。
b.grep函数示例
@number60=grep $_ > 60, @number; #找出数组中大于60的元素
@seq_200=grep length($_) > 200, @seq; #找出数组中大于200的字符串
# 找出@seq_200里G数目大于9的元素
@seq9=grep {@base=split//,$_; (grep $_ eq "G" , @base) > 9} @seq_200
#找出@seq_200里G数目大于9的元素
@seq=grep ((grep $_ eq "G", split//,$_) > 9, @seq_200)
3.map与grep函数的异与同
两者都可以进行数组的遍历，且语法结构类似，相较于foreach都有返回值。map和grep语法中的第二种中的BLOCK可以是多行代码，map的返回值是多行代码中的最后一行的返回值。grep则根据BLOCK返回值的真假来决定是否返回列表的值，真则返回，反之不返回。
4.map与grep函数示例演示
随机生成20条长度为50个碱基的DNA序列，筛选出其中G数目在9个以上的序列并输出到屏幕。
@base=qw(A T C G);
@seq_20=map {
@base_50= map {$base[rand 4]} 1..50;
$seq_50=join "",@base;
} 1..20 ;
@seq_g9=grep {
$G_number= grep $_ eq "G", split//;
$G_number > 9
} @seq_20;
map {print $_,"\n"} @seq_g9;
也可以简写为如下：
@base=qw(A T C G)
map {print $_,"\n"} (grep { (grep $_ eq "G", split//) > 9 } map {join ("", map {$base[rand 4] } 1..50)} (1..20))
map与grep 是将循环变成了函数，使其能够有返回值，函数的返回值可以作为另一个函数的操作数，Perl语言又规定所有的函数操作数都写在函数右侧。如此，就可以无限地在函数的返回之前加函数，无需中间变量。
网友评论