perl grep 和 map 简单用法

map:
语法：map {表达式} 列表
语义：用@存储表示处理后的list，用$存储则表示处理后list的长度。

用法：
1，打印数组：map { print } @array;
2，替换元素：map { $_='x' unless $_ }  @array;
map(ucfirst, @array); #首字母大写

grep:
语法：同map
语义：判断列表中每个元素是否满足表达式或者块来返回true和false，
再根据true和false来决定最终的返回列表。
例如：
1，my @numbers = grep { /^\d+$/ } @array;
2, my @odd = @nums[grep { $_ & 1 } 0..$#nums];
#取数组中下标为奇数的元素，@odd中值分别是1,5,6