📄 perl8.htm
字号:
<html><!-- #BeginTemplate "/Templates/index.dwt" --><head><meta http-equiv=Content-Type content="text/html; charset=gb_2312-80"><title>ChinaPerl</title>
<LINK rel=stylesheet href=mystyle.css type=text/css>
</head><body>
<table border=0 cellspacing=0 bgcolor=#80FFFF width=100%>
<tr>
<td align=left rowspan=2 width=150>
<div align="center"><img src=image/perl.gif height=85 width="85"></div>
</td>
<td align=center><img src=image/perl.gif height=85 width="85"></td>
</tr><tr>
<td colspan=2 align=center> </td>
</tr></table>
<table border=0 width=100% height=400 cellspacing=0 cellpadding=0>
<tr>
<td width=20% valign=top bgcolor="#dddddd">
<table border=0 width=100% cellpadding=0><tr><td width=5%></td>
<td width=95%>
<p align=center>Perl 5教程<br>
<a target=_blank href=http://flamephoenix.126.com>by flamephoenix</a><a href="http://perl.yesky.net"><br>
<font color="red">修订 by RNY<br>
</font></a>2000-08-30</p>
<p align=center><a href="index.htm">目录</a></p>
<p align=center>第一部分 Perl语言</p>
<p><a href=perl1.htm>第一章 概述</a></p>
<p><a href=perl2.htm>第二章 简单变量</a></p>
<p><a href=perl3.htm>第三章 操作符</a></p>
<p><a href=perl4.htm>第四章 列表和数组变量</a></p>
<p><a href=perl5.htm>第五章 文件读写</a></p>
<p><a href=perl6.htm>第六章 模式匹配</a></p>
<p><a href=perl7.htm>第七章 控制结构</a></p>
<p><a href=perl8.htm>第八章 子程序</a></p>
<p><a href=perl9.htm>第九章 关联数组(哈希表)</a></p>
<p><a href=perl10.htm>第十章 格式化输出</a></p>
<p><a href=perl11.htm>第十一章 文件系统</a></p>
<p><a href=perl12.htm>第十二章 引用(指针)</a></p>
<p><a href=perl13.htm>第十三章 面向对象编程</a></p>
<p><a href=perl14.htm>第十四章 包和模块</a></p>
<p><a href=func.htm>附录一 函数集</a></p>
<p align=center>第二部分 Perl的CGI应用</p>
<p><a href=cgi1.htm>第一章 cgilib例</a></p>
<p><a href=cgi2.htm>第二章 动态创建图像</a></p>
<p><a href=cgi3.htm>第三章 计数器的编写方法</a></p>
<p><a href=cgi4.htm>第四章 Web Server设置</a></p>
第五章、...<br></td></tr></table></td>
<td width=80% valign=top>
<div align="center"></div>
<table border=0 width=100% cellpadding=0>
<tr bgcolor="#00FF80">
<td colspan="2">
<div align="center"> Perl教程 | <a href="perl5manual.zip">下载全文</a>
| <a target=_blank href=http://www.turbolinux.com.cn/cgi-bin/linux/wwwthreads.pl?action=list&Board=perl>Perl论坛</a>
| <a href="http://perl.yesky.net">推荐站点</a> | 关于我们 </div>
</td>
</tr>
<tr>
<td colspan="2"><!-- #BeginEditable "body" -->
<p align=center>第八章 子程序</p>
<p align=center><a target=_blank href=http://flamephoenix.126.com>by
flamephoenix</a></p>
<br>
<a href=#一、定义>一、定义</a><br>
<a href=#二、调用>二、调用</a><br>
<a href=#1、用&调用> 1、用&调用</a><br>
<a href=#2、先定义后调用> 2、先定义后调用</a><br>
<a href=#3、前向引用> 3、前向引用</a><br>
<a href=#4、用do调用> 4、用do调用</a><br>
<a href=#三、返回值>三、返回值</a><br>
<a href=#四、局部变量>四、局部变量</a><br>
<a href=#五、子程序参数传递>五、子程序参数传递</a><br>
<a href=#1、形式> 1、形式</a><br>
<a href=#2、传送数组> 2、传送数组</a><br>
<a href=#六、递归子程序>六、递归子程序</a><br>
<a href=#七、用别名传递数组参数>七、用别名传递数组参数</a><br>
<a href=#八、预定义的子程序>八、预定义的子程序</a><br>
<br>
<br>
<a name=一、定义>一、定义</a><br>
子程序即执行一个特殊任务的一段分离的代码，它可以使减少重复代码且使程序易读。PERL中，子程序可以出现在程序的任何地方。定义方法为：<br>
sub subroutine{<br>
statements;<br>
}<br>
<a name=二、调用>二、调用</a><br>
调用方法如下：<br>
<a name=1、用&调用>1、用&调用</a><br>
&subname;<br>
...<br>
sub subname{<br>
...<br>
}<br>
<a name=2、先定义后调用>2、先定义后调用</a> ，可以省略&符号<br>
sub subname{<br>
...<br>
}<br>
...<br>
subname;<br>
<a name=3、前向引用>3、前向引用</a> ，先定义子程序名，后面再定义子程序体<br>
sub subname;<br>
...<br>
subname;<br>
...<br>
sub subname{<br>
...<br>
}<br>
<a name=4、用do调用>4、用do调用</a><br>
do my_sub(1, 2, 3);等价于&my_sub(1, 2, 3);<br>
<a name=三、返回值>三、返回值</a><br>
缺省的，子程序中最后一个语句的值将用作返回值。语句return (retval);也可以推出子程序并返回值retval，retval可以为列表。<br>
<a name=四、局部变量>四、局部变量</a><br>
子程序中局部变量的定义有两种方法：my和local。其区别是：my定义的变量只在该子程序中存在；而local定义的变量不存在于主程序中，但存在于该子程序和该子程序调用的子程序中(在PERL4中没有my)。定义时可以给其赋值，如：<br>
my($scalar) = 43;<br>
local(@array) = (1, 2, 3);<br>
<a name=五、子程序参数传递>五、子程序参数传递</a><br>
<a name=1、形式>1、形式</a><br>
&sub1(&number1, $number2, $nubmer3);<br>
...<br>
sub sub1{<br>
my($number1, $number2, $number3) = @_;<br>
...<br>
}<br>
<a name=2、传送数组>2、传送数组</a><br>
&addlist (@mylist);<br>
&addlist ("14", "6", "11");<br>
&addlist ($value1, @sublist, $value2);<br>
...<br>
sub addlist {<br>
my (@list) = @_;<br>
...<br>
}<br>
参数为数组时，子程序只将它赋给一个数组变量。如<br>
sub twolists {<br>
my (@list1, @list2) = @_;<br>
}<br>
中@list2必然为空。但简单变量和数组变量可以同时传递：<br>
&twoargs(47, @mylist); # 47赋给$scalar，@mylist赋给@list<br>
&twoargs(@mylist); # @mylist的第一个元素赋给$scalar，其余的元素赋给@list<br>
...<br>
sub twoargs {<br>
my ($scalar, @list) = @_;<br>
...<br>
}<br>
<a name=六、递归子程序>六、递归子程序</a><br>
PERL中，子程序可以互相调用，其调用方法与上述相同，当调用该子程序本身时，即成了递归子程序。递归子程序有两个条件：1、除了不被子程序改变的变量外，所有的变量必须的局部的；2、该子程序要含有停止调用本身的代码。<br>
<a name=七、用别名传递数组参数>七、用别名传递数组参数</a><br>
1、用前面讲到的调用方法&my_sub(@array)将把数组@array的数据拷贝到子程序中的变量@_中，当数组很大时，将会花费较多的资源和时间，而用别名传递将不做这些工作，而对该数组直接操作。形式如：<br>
@myarray = (1, 2, 3, 4, 5);<br>
&my_sub(*myarray);<br>
sub my_sub {<br>
my (*subarray) = @_;<br>
}<br>
2、此方法类似于C语言中的传递数组的起始地址指针，但并不一样，在定义数组的别名之后，如果有同名的简单变量，则对该变量也是起作用的。如：<br>
$foo = 26;<br>
@foo = ("here's", "a", "list");<br>
&testsub (*foo);<br>
...<br>
sub testsub {<br>
local (*printarray) = @_;<br>
...<br>
$printarray = 61;<br>
}<br>
当子程序执行完，主程序中的$foo的值已经成了61，而不再是26了。<br>
3、用别名的方法可以传递多个数组，如：<br>
@array1 = (1, 2, 3);<br>
@array2 = (4, 5, 6);<br>
&two_array_sub (*array1, *array2);<br>
sub two_array_sub {<br>
my (*subarray1, *subarray2) = @_;<br>
}<br>
在该子程序中，subarray1是array1的别名，subarray2是array2的别名。<br>
<a name=八、预定义的子程序>八、预定义的子程序</a><br>
PERL5预定义了三个子程序，分别在特定的时间执行，它们是：BEGIN子程序在程序启动时被调用；END子程序在程序结束时被调用；AUTOLOAD子程序在找不到某个子程序时被调用。你可以自己定义它们，以在特定时间执行所需要的动作。如：<br>
BEGIN {<br>
print("Hi! Welcome to Perl!\n");<br>
}<br>
AUTOLOAD{<br>
print("subroutine $AUTOLOAD not found\n");
# 变量$AUTOLOAD即未找到的子程序名<br>
print("arguments passed: @_\n");<br>
}<br>
若同一个预定义子程序定义了多个，则BEGIN顺序执行，END逆序执行。<br>
<br>
<br>
<p></p>
<p align=center><a href=perl7.htm>上一章</a> <a href=perl9.htm>下一章</a>
<a href=index.htm>目录</a></p>
<p align=center> </p>
<!-- #EndEditable --></td>
</tr>
</table>
</td></tr></table></body><!-- #EndTemplate --></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -