孤独的猫

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

map

语法:

map EXPR, LIST

map BLOCK, LIST

语义:

对于LIST中的每个元素执行EXPR或者BLOCK,如果返回值存储在list中,则表示处理后的list,若返回值存储在scalar中,则表示处理后的list中元素个数。下面是几个例子.

单词首字母大写

sub test {
my @names = (
'jacob',
'alexander',
'ethan',
'andrew',
);

my @new_names = map(ucfirst, @names);

foreach my $name (@new_names) {
print $name, "\n";
}
}

打印数组元素

print 相当于 print $_

my @row_ary = (1, 3, 'abc', undef, 12, 'ddd', undef, undef) ;
map { print } @row_ary;

替换数组元素

对于数组中每个元素,如果其值是undef,那么将其替换位x。

my @row_ary = (1, 3, 'abc', undef, 12, 'ddd', undef, undef) ;
map { $_='x' unless $_ } @row_ary;

grep

grep的语法格式与map完全一样,不过grep是通过判断列表中每个元素是否满足表达式或者块来返回true和false,再根据true和false来决定最终的返回列表。所以grep多时用来过滤元素用的。

一个例子,找出一组单词中的纯数字单词,如下。

sub test {
my @words = (
'hello',
'123',
'B51',
'123abc',
'8',
);

my @numbers = grep { /^\d+$/ } @words

转自: http://www.cnblogs.com/softwaretesting/archive/2011/11/28/2266349.html

posted on 2011-12-13 20:36  孤独的猫  阅读(225)  评论(0编辑  收藏  举报