map

perl的map函数的使用：

 语法

map EXPR, LIST

map BLOCK LIST

定义和使用

对list中的每个元素执行EXPR或BLOCK，返回新的list。对每一此迭代，$_中保存了当前迭代的元素的值。

BLOCK是一个用{}包围的代码块。EXPR可以是子函数名、正则表达式等。LIST是输入列表。

简单地说，Perl map函数就是起了一个替代foreach循环的作用，Perl map函数会把数组LIST中的元素挨个取出，放到系统变量$_中，然后调用BLOCK去处理。值得强调的是，除非有很特殊的理由，不要去修改$_的值，因为修改$_就是直接改了原始数组里的元素！

返回值

如果返回值存储在scalar标量中，则代表map()返回数组的元素个数；

如果返回值存储在list中，则代表map()函数的数组；

map函数对LIST中的每一个元素都进行一次BLOCK或者EXPR计算。$_代表LIST中当前的元素。map函数返回的列表是由每一次计算所得到的结果组成。Map运算BLOCK或者EXPR的时候是处于列表上下文的。LIST中的每个元素通过运算，都会得到一个或多个值，或者不生成值。 LIST中所有元素运算完毕后得到的所有值组成结果列表。

在标量上下文中，map返回结果表中元素的个数。在哈希表上下文中，输出的表（a,b,c,d,...)被分组成为哈希表的格式(a=>b,c=>d,...)。如果输出列表中的元素不成对儿，那么最后一个元素作为键将会对应一个undefined值。

实例1 (将单词首字母大写)

按 Ctrl+C 复制代码

/usr/bin/perl -w @myNames = ('jacob', 'alexander', 'ethan', 'andrew'); @ucNames = map(ucfirst, @myNames); $numofucNames = map(ucfirst, @myNames); foreach $key ( @ucNames ){ print "$key\n"; } print $numofucNames;

按 Ctrl+C 复制代码

结果为

Jacob Alexander Ethan Andrew 4

实例2 (获得所有的书名中包含的单词，且转化为大写)

my@books= ('Prideand Prejudice','Emma','Masfield Park','Senseand Sensibility','Nothanger Abbey',

'Persuasion','Lady Susan','Sanditon','The Watsons');
my@words=map{split(/\s+/,$_)}@books; my@uppercases=mapuc,@words; foreach$upword ( @uppercases  ){ print"$upword\n"; }

结果为 （Perl map函数的输入数组和输出数组不一定等长，在split起过作用之后，当然@words的长度要比@books长了。）

PRIDEAND PREJUDICE EMMA MASFIELD PARK SENSEAND SENSIBILITY NOTHANGER ABBEY PERSUASION LADY SUSAN SANDITON THE WATSONS

实例3 （将多余2位的数字提取到新的list）

#!/usr/bin/perl -wmy@buildnums= ('R010','T230','W11','F56','dd1'); my@nums=map{/(\d{2,})/} @buildnums; foreach$num (@nums){ print"$num \n" }

$a = 'RRR3ttt'; @yy = $a=~/RRR.*ttt/; $numofyy =  $a=~/RRR.*ttt/; print "@yy\n"; print "$numofyy\n" ;
@yy2 = $a=~/(RRR).*(ttt)/; $numofyy2 = $a=~/(RRR).*(ttt)/; print  "@yy2\n"; print "$numofyy2\n"; print "$1 $2";

结果为 （正则表达式匹配后返回的为数组或长度，取决于表达式中是否有（）或者接收的变量类型）

010 230 11 56 1 1 RRR ttt 1 RRR ttt