perl的map函數

來源：

perl的map函數的使用：

 

語法

map EXPR, LIST　　　　這個當中有,

map BLOCK LIST　　　 這個當中沒有,
 

定義和使用

對list中的每個元素執行EXPR或BLOCK，返回新的list。對每一此迭代，$_中保存了當前迭代的元素的值。

 

返回值

如果返回值存儲在scalar標量中，則代表map()返回數組的元素個數；

如果返回值存儲在list中，則代表map()函數的數組；

 

實例1 (將單詞首字母大寫)

Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->#!/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）

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

結果

010 
230 
11 
56 

 

實例4  匹配的標量和列表上下文返回值

$a = 'RRR32Sttt';
@yy = $a=~/RRR.*ttt/;
$numofyy = $a=~/RRR.*ttt/;
print "@yy\n";
print "$numofyy\n" ;
print "$1";

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

結果   （正則表達式匹配后返回的為數組或長度，取決於表達式中是否有（）或者接收的變量類型）

1
1
RRR ttt
1
RRR ttt

表達式中是否有（）       接收的變量類型       結果

無　　　　　　　　　　　　　　標量　　　　　永遠1或0

有　　　　　　　　　　　　　　標量　　　　　永遠1或0

無　　　　　　　　　　　　　　列表　　　　　永遠(1或0)

有　　　　　　　　　　　　　　列表　　　　　結果的列表