这篇文章给大家介绍Perl语言中Perl函数如何使用,内容非常详细,感兴趣的小伙伴们可以参考借鉴,希望对大家能有所帮助。
Perl函数和模块
1、创建Perl函数
sub函数名{
函数体
}
2、Perl函数之keys和values函数
keys函数会遍历所有的哈希变量,并把哈希变量的key作为一个数组返回,我们可以通过遍历这个数组来访问哈希变量的所有元素。需要注意,这个数组中的key仍然是无序的。对应的函数就是
values函数,它会把哈希变量保存的所有的值作为一个数组返回。
[root@test-linuxtmp]#catpy.pl #!/usr/bin/Perl-w $name{'bo'}=1; $name{'hong'}=2; $name{'quan'}=3; @keyname=keys(%name); @valuesvaluesname=values(%name); print"\@keynameis@keyname\n"; print"\@valuesnameis@valuesname\n"; print"\%name{\$keyname[0]is%name{$keyname[1]}\%name{\$valuesname[0]is$valuesname[1]}}\n"; [root@test-linuxtmp]#
3、Perl函数之each函数
each函数的功能就是遍历哈希变量中所有的数据并把每一对key=>value作为一个只有两个元素的数组返回,key在前,value在后。each函数会循环地取出所有的数据,直到所有数据都被取出反返回false。
[root@test-linuxtmp]#catpu.pl #!/usr/bin/Perl-w $name{'beijing'}=99; $name{'shanghai'}=88; $name{'shenzhen'}=77; while(@value=each(%name)) { print"$value[0]is$value[1]\n"; } [root@test-linuxtmp]#./pu.pl shenzhenis77 beijingis99 shanghaiis88 [root@test-linuxtmp]#
4、Perl函数之delete和exists函数
delete函数的功能就是从哈希变量中删除一个元素,而exists函数的功能则是判断哈希变量中是否存在某一个值。
[root@test-linuxtmp]#catpq.pl #!/usr/bin/Perl-w $city{'hebei'}="issheng"; $city{'hadan'}="isshish"; $city{'xiang'}="isxianL"; if(exists($city{'hebei'})) { delete($city{'hebei'}); } while(@value=each(%city)) { print"$value[0]=>$value[1]\n"; } [root@test-linuxtmp]#./pq.pl hadan=>isshish xiang=>isxianL
关于Perl语言中Perl函数如何使用就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。