欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

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

程序员文章站 2022-04-29 15:54:01
...

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

 

相关标签: Perl Ubuntu Linux