Perl中map函数如何使用

Perl中map函数如何使用，相信很多没有经验的人对此束手无策，为此本文总结了问题出现的原因和解决方法，通过这篇文章希望你能解决这个问题。

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

看完上述内容，你们掌握Perl中map函数如何使用的方法了吗？如果还想学到更多技能或想了解更多相关内容，欢迎关注亿速云行业资讯频道，感谢各位的阅读！