perl的map函数

perl的map函数的使用：

 

语法

map EXPR, LIST

map BLOCK LIST
 

定义和使用

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

 

返回值

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

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

 

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

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

结果为

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   =   map   uc , @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 -w

my   @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

 

完！