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