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 
      
    $numofucNames 
    );

 
    foreach 
    $key 
     (  
     ){
   
    print 
      
    "$key\n" 
    ;
 }
 
    ; 
   

结果为

Jacob
Alexander
Ethan
Andrew
4

 

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

my @books  ( 'Prideand Prejudice' ottom:0px; margin-left:0px; padding-top:0px; padding-right:0px; padding-bottom:0px; padding-left:0px; font-family:'Courier New'; font-size:12px; color:rgb(0, 'emma'   'Masfield Park' ottom:0px; margin-left:0px; padding-top:0px; padding-right:0px; padding-bottom:0px; padding-left:0px; font-family:'Courier New'; font-size:12px; color:rgb(0, 'Senseand Sensibility' ottom:0px; margin-left:0px; padding-top:0px; padding-right:0px; padding-bottom:0px; padding-left:0px; font-family:'Courier New'; font-size:12px; color:rgb(0, 'Nothanger Abbey' ottom:0px; margin-left:0px; padding-top:0px; padding-right:0px; padding-bottom:0px; padding-left:0px; font-family:'Courier New'; font-size:12px; color:rgb(0,

'Persuasion'    'Lady Susan' ottom:0px; margin-left:0px; padding-top:0px; padding-right:0px; padding-bottom:0px; padding-left:0px; font-family:'Courier New'; font-size:12px; color:rgb(0, 'Sanditon' ottom:0px; margin-left:0px; padding-top:0px; padding-right:0px; padding-bottom:0px; padding-left:0px; font-family:'Courier New'; font-size:12px; color:rgb(0, 'The Watsons' @words { split /\ s +/, $_ )} ;
@uppercases uc $upword   "$upword\n" ;
}