perl中的map

#!/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