解析Perl map函數(shù)使用
本文和大家重點討論一下Perl map函數(shù)的使用，Perl map函數(shù)就是起了一個替代foreach循環(huán)的作用，Perl map函數(shù)會把數(shù)組LIST中的元素挨個取出，放到系統(tǒng)變量$_中，然后調(diào)用BLOCK去處理。
Perl map函數(shù)使用
Perl里面的Perl map函數(shù)是一種道具，可以讓你的函數(shù)或者表達式，很方便地施用到一系列對象上去。
◆Perl map函數(shù)的語法
Perl map函數(shù)BLOCKLIST
Perl map函數(shù)EXPR,LIST
BLOCK是一個用{}包圍的代碼塊。EXPR可以是子函數(shù)名、正則表達式等。LIST是輸入列表。
簡單地說，Perl map函數(shù)就是起了一個替代foreach循環(huán)的作用，Perl map函數(shù)會把數(shù)組LIST中的元素挨個取出，放到系統(tǒng)變量$_中，然后調(diào)用BLOCK去處理。值得強調(diào)的是，除非有很特殊的理由，不要去修改$_的值，因為修改$_就是直接改了原始數(shù)組里的元素！BLOCK處理過的結(jié)果由Perl map函數(shù)返回，仍然是一個數(shù)組。
◆一個例子：計算一系列文件大小
my@sizes=Perl map函數(shù){-s$_}@filenames;
上面例子用-s操作取得一些文件的大小，存到數(shù)組中去。
◆是不是說Perl map函數(shù)的輸入數(shù)組和輸出數(shù)組一定等長呢？不一定的，看這個
my@books=('PrideandPrejudice','Emma','MasfieldPark','SenseandSensibility','NothangerAbbey','Persuasion','LadySusan','Sanditon','TheWatsons');
現(xiàn)在取出書名里面所有用到的單詞，并且全部轉(zhuǎn)換成大寫
my@words=Perl map函數(shù){split(/\s+/,$_)}@books;
my@uppercases=Perl map函數(shù)uc,@words;
在split起過作用之后，當然@words的長度要比@books長了。
◆再舉一個Perl map函數(shù)嵌套使用的例子：矩陣的轉(zhuǎn)置
- useData::Dumper();
- my@matrix=([a,b,c,d],[e,f,g,h],[i,j,k,l]);
- printDumper(\@matrix);
- my@transposed=Perl map函數(shù){$x=$_;
- [Perl map函數(shù){$matrix[$_][$x]}0..$#matrix];
- }0..$#{$matrix[0]};
- printDumper(\@transposed);
上面的BLOCK里面，Perl map函數(shù)的返回值是用方括號操作符號構(gòu)造匿名數(shù)組實現(xiàn)的。理解這一點就容易看懂代碼了，這個匿名數(shù)組法常常被用來構(gòu)造簡單難懂的代碼，常用伎倆:-)
本文來自CSDN博客，轉(zhuǎn)載請標明出處：http://blog.csdn.net/bocodb/archive/2008/11/19/3324025.aspx
【編輯推薦】
