 一、定义 子程式即执行一个特别任务的一段分离的代码，他能够使减少重复代码且使程式易读。PERL中，子程式能够出现在程式的任何地方。定义方法为： sub subroutine{ statements; } 二、调用 调用方法如下： 1、用&调用 &subname; ... sub subname{ ... } 2、先定义后调用 ，能够省略&符号 sub subname{ ... } ... subname; 3、前向引用 ，先定义子程式名，后面再定义子程式体 sub subname; ... subname; ... sub subname{ ... } 4、用do调用 do my_sub(1, 2, 3);等价于&my_sub(1, 2, 3); 三、返回值 缺省的，子程式中最后一个语句的值将用作返回值。语句return (retval);也能够推出子程式并返回值retval，retval能够为列表。 四、局部变量 子程式中局部变量的定义有两种方法：my和local。其区分是：my定义的变量只在该子程式中存在；而local定义的变量不存在于主程式中，但存在于该子程式和该子程式调用的子程式中(在PERL4中没有my)。定义时能够给其赋值，如： my($scalar) = 43; local(@array) = (1, 2, 3); 五、子程式参数传递 1、形式 &sub1(&number1, $number2, $nubmer3); ... sub sub1{ my($number1, $number2, $number3) = @_; ... } 2、传送数组 &addlist (@mylist); &addlist ("14", "6", "11"); &addlist ($value1, @sublist, $value2); ... sub addlist { my (@list) = @_; ... } 参数为数组时，子程式只将他赋给一个数组变量。如 sub twolists { my (@list1, @list2) = @_; } 中@list2必然为空。但简单变量和数组变量能够同时传递： &twoargs(47, @mylist); # 47赋给$scalar，@mylist赋给@list &twoargs(@mylist); # @mylist的第一个元素赋给$scalar，其余的元素赋给@list ... sub twoargs { my ($scalar, @list) = @_; ... } |
喜欢本文，那就收藏到： |
.text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&img=http://www.h-strong.com/blog/logo.gif','keyit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));keyit.focus(); "添加到POCO网摘"){kind=logo}
Rss Feed
