温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

Perl中如何使用列表函数

发布时间:2021-07-14 14:24:31 来源:亿速云 阅读:168 作者:Leah 栏目:开发技术

本篇文章为大家展示了Perl中如何使用列表函数,内容简明扼要并且容易理解,绝对能使你眼前一亮,通过这篇文章的详细介绍希望你能有所收获。

Perl函数名 grep

调用语法 @foundlist=grep(pattern,@searchlist);
解说 与同名的UNIX查找工具类似,grepPerl函数在列表中抽取与指定模式匹配的元素,参数pattern为欲查找的模式,返回值是匹配元素的列表。
例子 @list=("This","is","a","test");
@foundlist=grep(/^[tT]/,@list);
结果 @foundlist=("This","test");

Perl函数名 splice

调用语法 @retval=splice(@array,slipelements,length,@newlist);
解说 拼接Perl函数可以向列表(数组)中间插入元素、删除子列表或替换子列表。参数skipelements是拼接前跳过的元素数目,length是被替换的元素数,newlist是将要拼接进来的列表。当newlist的长度大于length时,后面的元素自动后移,反之则向前缩进。因此,当length=0时,就相当于向列表中插入元素,而形如语句
splice(@array,-1,0,"Hello");
则向数组末尾添加元素。而当newlist为空时就相当于删除子列表,这时,如果length为空,就从第skipelements个元素后全部删除,而删除***一个元素则为:splice(@array,-1);这种情况下,返回值为被删去的元素列表。

Perl函数名 shift

调用语法 element=shift(@arrayvar);
解说 删去数组***个元素,剩下元素前移,返回被删去的元素。不加参数时,缺省地对@ARGV进行操作。

Perl函数名 unshift

调用语法 count=unshift(@arrayver,elements);
解说 作用与shift相反,在数组arrayvar开头增加一个或多个元素,返回值为结果(列表)的长度。等价于splice(@array,0,0,elements);

Perl函数名 push

调用语法 push(@arrayvar,elements);
解说 在数组末尾增加一个或多个元素。等价于slice(@array,@array,0,elements);

Perl函数名 pop

调用语法 element=pop(@arrayvar);
解说 与push作用相反,删去列表***一个元素,并将其作为返回值,当列表已空,则返回“未定义值”(即空串)。

Perl函数名 split

调用语法 @list=split(pattern,string,maxlength);
解说 将字符串分割成一组元素的列表。每匹配一次pattern,就开始一个新元素,但pattern本身不包含在元素中。maxlength是可选项,当指定它时,达到该长度就不再分割。

Perl函数名 sort

调用语法 @sorted=sort(@list);
解说 按字母次序给列表排序。

Perl函数名 reverse

调用语法 @reversed=reverse(@list);
解说 按字母反序给列表排序。

Perl函数名 map

调用语法 @resultlist=map(expr,@list);
解说 此Perl函数在Perl5中定义,可以把列表中的各个元素作为表达式expr的操作数进行运算,其本身不改变,结果作为返回值。在表达式expr中,系统变量$_代表各个元素。
例子 1、@list=(100,200,300);
@results=map($_+1,@list);
2、@results=map(&mysub($_),@list);
结果 1、(101,201,301)
2、无

Perl函数名 wantarray

调用语法 result=wantarray();
解说 Perl中,一些内置Perl函数的行为根据其处理简单变量还是数组有所不同,如chop。自定义的子程序也可以定义这样两种行为。当子程序被期望返回列表时,此Perl函数返回值为非零值(真),否则为零值(假)。
例子

1:#!/usr/local/bin/perl  2:  3:@array=&mysub();  4:$scalar=&mysub();  5:  6:submysub{  7:if(wantarray()){  8:print("true\n");  9:}else{  10:print("false\n");  11:}  12:}  结果 $program  true  false  $

上述内容就是Perl中如何使用列表函数,你们学到知识或技能了吗?如果还想学到更多技能或者丰富自己的知识储备,欢迎关注亿速云行业资讯频道。

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI