神奇的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($_);
}
@x=qw(12345 xyz ab12 linux ubuntu);
@y=map &mymd5($_),@x;#对@x的每个元素调用mymd5子程序
#输出@y的所有元素，每个元素占用一行
map say,@y;
#＠y的每个元素为十六进制表示的@x每个元素的MD5码。
页:
[1]