神奇的perl-第六个任务(11)

本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载

 

3.5列表批量操作-map

map将某项操作批量分别用于列表的每个元素：

map 子程序块 列表

map 表达式,列表 

比如：

map print,@z; #输出@z的每个元素

map say,@z; #输出@z的每个元素，每个元素占一行

@y=map $_+5,@x;#@x的每个元素加5，结果做为列表返回，赋值给@y

计算列表所有元素的MD5码

   #perl4-27.pl

use 5.010;

use Digest::MD5 qw(md5_hex);#使用Digest::MD5模块

sub mymd5{#调用md5_hex方法计算MD5

   return md5_hex($_[0]);

}

@x=qw(12345 xyz ab12 linux ubuntu);

@y=map &mymd5($_),@x;#对@x的每个元素调用mymd5子程序

#输出@y的所有元素，每个元素占用一行

map say,@y;

#＠y的每个元素为十六进制表示的@x每个元素的MD5码。