📄 perl 语言－perl 中文教程（第十二章）.htm
字号:
href="http://www.sun126.com/perl5/perl5-11.htm"><IMG
src="Perl 语言－Perl 中文教程（第十二章）.files/11.gif" border=0
name=Image15></A></TD></TR>
<TR>
<TD><A onmouseover="MM_swapImage('Image17','','12a.gif',1)"
onmouseout=MM_swapImgRestore()
href="http://www.sun126.com/perl5/perl5-12.htm"><IMG
src="Perl 语言－Perl 中文教程（第十二章）.files/12.gif" border=0
name=Image17></A></TD></TR>
<TR>
<TD><A onmouseover="MM_swapImage('Image16','','13a.gif',1)"
onmouseout=MM_swapImgRestore()
href="http://www.sun126.com/perl5/perl5-13.htm"><IMG
src="Perl 语言－Perl 中文教程（第十二章）.files/13.gif" border=0
name=Image16></A></TD></TR>
<TR>
<TD><A onmouseover="MM_swapImage('Image18','','14a.gif',1)"
onmouseout=MM_swapImgRestore()
href="http://www.sun126.com/perl5/perl5-14.htm"><IMG
src="Perl 语言－Perl 中文教程（第十二章）.files/14.gif" border=0
name=Image18></A></TD></TR>
<TR>
<TD><A onmouseover="MM_swapImage('Image19','','y1a.gif',1)"
onmouseout=MM_swapImgRestore()
href="http://www.sun126.com/perl5/perl5-15.htm"><IMG
src="Perl 语言－Perl 中文教程（第十二章）.files/y1.gif" border=0
name=Image19></A></TD></TR>
<TR>
<TD><A onmouseover="MM_swapImage('Image20','','y2a.gif',1)"
onmouseout=MM_swapImgRestore()
href="http://www.sun126.com/perl5/perl5-16.htm"><IMG
src="Perl 语言－Perl 中文教程（第十二章）.files/y2.gif" border=0
name=Image20></A></TD></TR>
<TR>
<TD><A onmouseover="MM_swapImage('Image21','','y3a.gif',1)"
onmouseout=MM_swapImgRestore()
href="http://www.sun126.com/perl5/perl5-17.htm"><IMG
src="Perl 语言－Perl 中文教程（第十二章）.files/y3.gif" border=0
name=Image21></A></TD></TR></TBODY></TABLE></TD>
<TD class=myFont vAlign=top width=30><IMG height=1
src="Perl 语言－Perl 中文教程（第十二章）.files/x.gif" width=10> </TD>
<TD class=myFont vAlign=top>
<DIV align=center><IMG height=30
src="Perl 语言－Perl 中文教程（第十二章）.files/top.gif" width=180><BR><SPAN
class=myFont><SPAN class=myFont><FONT face=宋体>翻译：</FONT></SPAN></SPAN>
<SPAN class=myFont><SPAN class=myFont>flamephoenix</SPAN></SPAN> <BR>
<HR width="100%" SIZE=1>
<DIV align=left>
<P align=center><B>第十二章 Perl5中的引用/指针</B></P>
<P><A href="http://www.sun126.com/perl5/perl5-12.htm#1">一、引用简介</A><BR><A
href="http://www.sun126.com/perl5/perl5-12.htm#2">二、使用引用</A><BR><A
href="http://www.sun126.com/perl5/perl5-12.htm#3">三、使用反斜线(\)操作符</A><BR><A
href="http://www.sun126.com/perl5/perl5-12.htm#4">四、引用和数组</A><BR><A
href="http://www.sun126.com/perl5/perl5-12.htm#5">五、多维数组</A><BR><A
href="http://www.sun126.com/perl5/perl5-12.htm#6">六、子程序的引用</A><BR>
<A href="http://www.sun126.com/perl5/perl5-12.htm#6.1">子程序模板</A><BR><A
href="http://www.sun126.com/perl5/perl5-12.htm#7">七、数组与子程序</A><BR><A
href="http://www.sun126.com/perl5/perl5-12.htm#8">八、文件句柄的引用</A><BR><BR><A
name=1>一、引用简介</A><BR> 引用就是指针，可以指向变量、数组、哈希表（也叫关联数组）甚至子程序。Pascal或C程序员应该对引用（即指针）的概念很熟悉，引用就是某值的地址，对其的使用则取决于程序员和语言的规定。在Perl中，可以把引用称为指针，二者是通用的，无差别的。引用在创建复杂数据方面十分有用。<BR> Perl5中的两种引用类型为硬引用和符号引用。符号引用含有变量的名字，它对运行时创建变量名并定位很有用，基本上，符号引用就象文件名或UNIX系统中的软链接。而硬引用则象文件系统中的硬链接。<BR> Perl4只允许符号引用，给使用造成一些困难。例如，只允许通过名字对包的符号名哈希表（名为_main{}）建立索引。Perl5则允许数据的硬引用，方便多了。<BR> 硬引用跟踪引用的计数，当其数为零时，Perl自动将被引用的项目释放，如果该项目是对象，则析构释放到内存池中。Perl本身就是个面向对象的语言，因为Perl中的任何东西都是对象，包和模块使得对象更易于使用。<BR> 简单变量的硬引用很简单，对于非简单变量的引用，你必须显式地解除引用并告诉其应如何做，详见《第
章Perl中的面向对象编程》。<BR><BR><A
name=2>二、使用引用</A><BR> 本章中，简单变量指像$pointer这样的变量，$pointer仅含一个数据项，其可以为数字、字符串或地址。<BR> 任何简单变量均可保存硬引用。因为数组和哈希表含有多个简单变量，所以可以建立多种组合而成的复杂的数据结构，如数组的数组、哈希表的数组、子程序的哈希表等等。只要你理解其实只是在用简单变量在工作，就应该可以正确的在最复杂的结构中正确地解除引用。<BR> 首先来看一些基本要点。<BR> 如果$pointer的值为一个数组的指针，则通过形式@$pointer来访问数组中的元素。形式@$pointer的意义为“取出$pointer中的地址值当作数组使用”。类似的，%$pointer为指向哈希表中第一个元素的引用。<BR> 有多种构建引用的方法，几乎可以对任何数据建立引用，如数组、简单变量、子程序、文件句柄，以及--C程序员会感兴趣的--引用。Perl使你有能力写出把自己都搞糊涂的极其复杂的代码。:)<BR> 下面看看Perl中创建和使用引用的方法。<BR><BR><A
name=3>三、使用反斜线(\)操作符</A><BR> 反斜线操作符与C语言中传递地址的操作符&功能类似。一般是用\创建变量又一个新的引用。下面为创建简单变量的引用的例子：<BR> $variavle
= 22;<BR> $pointer =
\$variable;<BR> $ice =
"jello";<BR> $iceprt =
\$ice;<BR> 引用$pointer指向存有$variable值的位置，引用$iceptr指向"jello"。即使最初的引用$variable销毁了，仍然可以通过$pointer访问该值，这是一个硬引用，所以必须同时销毁$pointer和$variable以便该空间释放到内存池中。<BR> 在上面的例子中，引用变量$pointer存的是$variable的地址，而不是值本身，要获得值，形式为两个$符号，如下：<BR></P>
<BLOCKQUOTE>
<P>#!/usr/bin/perl<BR>$value = 10;<BR>$pointer = \$value;<BR>printf "\n
Pointer Address $pointer of $value \n";<BR>printf "\n What Pointer
*($pointer) points to $$pointer\n"; </P></BLOCKQUOTE>
<P> 结果输出如下：<BR></P>
<BLOCKQUOTE>
<P>Pointer Address SCALAR(0x806c520) of 10<BR>What Pointer
*(SCALAR(0x806c520)) points to 10 </P></BLOCKQUOTE>
<P> 每次运行，输出结果中的地址会有所改变，但可以看到$pointer给出地址，而$$pointer给出$variable的值。<BR> 看一下地址的显示，SCALAR后面一串十六进制，SCALAR说明该地址指向简单变量（即标量），后面的数字是实际存贮值的地址。<BR> 注意：指针就是地址，通过指针可以访问该地址处存贮的数据。如果指针指向了无效的地址，就会得到不正确的数据。通常情况下，Perl会返回NULL值，但不该依赖于此，一定要在程序中把所有的指针正确地初始化，指向有效的数据项。<BR><BR><A
name=4>四、引用和数组</A><BR> 关于Perl语言应该记住的最重要的一点可能是：Perl中的数组和哈希表始终是一维的。因此，数组和哈希表只保存标量值，不直接存贮数组或其它的复杂数据结构。数组的成员要么是数（或字符串）要么是引用。<BR> 对数组和哈希表可以象对简单变量一样使用反斜线操作符，数组的引用如下：<BR></P>
<BLOCKQUOTE>
<P>1 #!/usr/bin/perl<BR>2 #<BR>3 # Using Array
references<BR>4 #<BR>5 $pointer = \@ARGV;<BR>6 printf
"\n Pointer Address of ARGV = $pointer\n";<BR>7 $i =
scalar(@$pointer);<BR>8 printf "\n Number of arguments : $i
\n";<BR>9 $i = 0;<BR>10 foreach (@$pointer) {<BR>11 printf
"$i : $$pointer[$i++]; \n";<BR>12 } </P></BLOCKQUOTE>
<P> 运行结果如下：<BR></P>
<BLOCKQUOTE></BLOCKQUOTE>
<P>$ test 1 2 3 4 <BR>Pointer Address of ARGV = ARRAY(0x806c378)<BR>Number
of arguments : 4<BR>0 : 1;<BR>1 : 2;<BR>2 : 3;<BR>3 : 4; </P>
<BLOCKQUOTE></BLOCKQUOTE>
<P> 第5行将引用$pointer指向数组@ARGV，第6行输出ARGV的地址。$pointer返回数组第一个元素的地址，这与C语言中的数组指针是类似的。第7行调用函数scalar()获得数组的元素个数，该参数亦可为@ARGV，但用指针则必须用@$pointer的形式指定其类型为数组，$pointer给出地址，@符号说明传递的地址为数组的第一个元素的地址。第10行与第7行类似，第11行用形式$$pointer[$i]列出所有元素。<BR> 对关联数组使用反斜线操作符的方法是一样的--把所有关联数组名换成引用$poniter。注意数组和简单变量（标量）的引用显示时均带有类型--ARRAY和SCALAR，哈希表（关联数组）和函数也一样，分别为HASH和CODE。下面是哈希表的引用的例子。<BR></P>
<BLOCKQUOTE>
<P>#!/usr/bin/perl<BR>1 #<BR>2 # Using Associative Array
references<BR>3 #<BR>4 %month = (<BR>5 '01',
'Jan',<BR>6 '02', 'Feb',<BR>7 '03', 'Mar',<BR>8
'04', 'Apr',<BR>9 '05', 'May',<BR>10 '06',
'Jun',<BR>11 '07', 'Jul',<BR>12 '08', 'Aug',<BR>13
'09', 'Sep',<BR>14 '10', 'Oct',<BR>15 '11',
'Nov',<BR>16 '12', 'Dec',<BR>17 );<BR>18<BR>19 $pointer =
\%month;<BR>20<BR>21 printf "\n Address of hash = $pointer\n ";<BR>22
<BR>23 #<BR>24 # The following lines would be used to print out
the<BR>25 # contents of the associative array if %month was used.<BR>26
#<BR>27 # foreach $i (sort keys %month) {<BR>28 # printf "\n $i
$$pointer{$i} ";<BR>29 # }<BR>30<BR>31 #<BR>32 # The reference to the
associative array via $pointer<BR>33 #<BR>34 foreach $i (sort keys
%$pointer) {<BR>35 printf "$i is $$pointer{$i} \n";<BR>36 }
</P></BLOCKQUOTE>
<P> 结果输出如下：<BR></P>
<BLOCKQUOTE>
<P>$ mth<BR>Address of hash = HASH(0x806c52c)<BR>01 is Jan<BR>02 is
Feb<BR>03 is Mar<BR>04 is Apr<BR>05 is May<BR>06 is Jun<BR>07 is
Jul<BR>08 is Aug<BR>09 is Sep<BR>10 is Oct<BR>11 is Nov<BR>12 is Dec
</P></BLOCKQUOTE>
<P> 与数组类似，通过引用访问哈希表的元素形式为$$pointer{$index}，当然，$index是哈希表的键值，而不仅是数字。还有几种访问形式，此外，构建哈希表还可以用=>操作符，可读性更好些。下面再看一个例子：<BR></P>
<BLOCKQUOTE>
<P>1 #!/usr/bin/perl<BR>2 #<BR>3 # Using Array
references<BR>4 #<BR>5 %weekday = (<BR>6 '01'
=> 'Mon',<BR>7 '02' => 'Tue',<BR>8 '03'
=> 'Wed',<BR>9 '04' => 'Thu',<BR>10 '05' =>
'Fri',<BR>11 '06' => 'Sat',<BR>12 '07' =>
'Sun',<BR>13 );<BR>14 $pointer = \%weekday;<BR>15 $i =
'05';<BR>16 printf "\n ================== start test =================
\n";<BR>17 #<BR>18 # These next two lines should show an output<BR>19
#<BR>20 printf '$$pointer{$i} is ';<BR>21 printf
"$$pointer{$i} \n";<BR>22 printf '${$pointer}{$i} is ';<BR>23
printf "${$pointer}{$i} \n";<BR>24 printf
'$pointer->{$i} is ';<BR>25<BR>26 printf
"$pointer->{$i}\n";<BR>27 #<BR>28 # These next two lines should not
show anything 29 #<BR>30 printf '${$pointer{$i}} is ';<BR>31
printf "${$pointer{$i}} \n";<BR>32 printf
'${$pointer->{$i}} is ';<BR>33 printf
"${$pointer->{$i}}";<BR>34 printf "\n ================== end of test
================= \n";<BR>35 </P></BLOCKQUOTE>
<P> 结果输出如下：<BR></P>
<BLOCKQUOTE>
<P>================== start test =================<BR>$$pointer{$i} is
Fri<BR>${$pointer}{$i} is Fri<BR>$pointer->{$i} is
Fri<BR>${$pointer{$i}} is<BR>${$pointer->{$i}}
is<BR>================== end of test ================= </P></BLOCKQUOTE>
<P> 可以看到，前三种形式的输出显示了预期的结果，而后两种则没有。当你不清楚是否正确时，就输出结果看看。在Perl中，有不明确的代码就用print语句输出来实验一下，这能使你清楚Perl是怎样解释你的代码的。<BR><BR><A
name=5>五、多维数组</A><BR> 语句@array =
list;可以创建数组的引用，中括号可以创建匿名数组的引用。下面语句为用于画图的三维数组的例子：<BR> $line
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -