📄 perl8.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<title>Perl中文手册</title>
<LINK rel="stylesheet" href="mystyle.css" type="text/css">
</head>
<body>
<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></p>
<p align="center">目录</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">
<table border="0" width="100%" cellpadding="0">
<tr>
<td width="1%">
</td>
<td width="99%">
<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 align="center"><a href="perl7.htm">上一章</a> <a href="perl9.htm">下一章</a> <a href="index.htm">目录</a></p>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -