解析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);