解析Perlmap函数使用

本文和大家重点讨论一下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

【编辑推荐】

Perl语法解析Perl变量使用
Perl基础 Perl包概念详解
Perl引用中直接引用用法解析
Perl语法中Perl标量和数组概念详解
技术分享解析Perl模块创建和导入方法

网站名称：解析Perlmap函数使用
当前URL：http://www.shufengxianlan.com/qtweb/news24/398174.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容