淘先锋技术网

首页 1 2 3 4 5 6 7
#!/usr/bin/perl -w
use strict;
my @array = (5, 'a', 'c', 10, 'b'  );
my @new_array = (map { $_*2 if m/\d/; } @array);
print "@new_array \n" ;
print $#new_array;

#print join(",", @new_array), "\n";


map用法示例2

1. 转换文件名为文件大小

@sizes = map { -s $_ } @file_names;

-s是个文件测试操作符,它返回某个文件的size。所以上面这句就返回@file_names数组里每个文件的大小,结果也是个数组。

2. 转换数组到hash:找到某个数组值的索引

代替重复的搜索数组,我们可以用map来转换数组到hash,并通过hash关键字来进行直接查找。如下的map用法相对于重复的数组搜索,更简单高效。

@teams = qw(Miami Oregon Florida Tennessee Texas  
            Oklahoma Nebraska LSU Colorado Maryland); 
%rank = map { $teams[$_], $_ + 1 } 0 .. $#teams; 
print "Colorado: $rank{Colorado}\n";  
print "Texas: $rank{Texas} (hook 'em, Horns!)\n";  



打印结果是:
Colorado: 9
Texas: 5 (hook 'em, Horns!)

上述code容易理解哦,0 ..$#teams 是个列表,$#teams代表@teams最后一个元素的下标值(这里是9),所以这个列表就是0-9这几个数了。map遍历上述列表,将每个列表元素临时设置为$_,并对$_在中间的{}里进行计算;{ $teams[$_], $_ + 1 },这里每次计算后返回一个2元素的列表,列表结果是某个数组值和对应的数组下标加1,明白了呀?

由于对每个LIST元素进行计算时,都产生一个2元素的列表,所以总的map结果就可看作一个hash了。hash关键字就是数组元素,hash值是对应的数组下标加1。
http://www.chinaunix.net/jh/25/632333.html

转载于:https://www.cnblogs.com/LCX/archive/2010/04/22/1718136.html