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

huijial

　　本神奇的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码。