?? perl12.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>第十二章 Perl5中的引用/指針</p>
<p align=center><a target=_blank href=http://flamephoenix.126.com>by
flamephoenix</a></p>
<a href=#1>一、引用簡介</a><br>
<a href=#2>二、使用引用</a><br>
<a href=#3>三、使用反斜線(\)操作符</a><br>
<a href=#4>四、引用和數組</a><br>
<a href=#5>五、多維數組</a><br>
<a href=#6>六、子程序的引用</a><br>
<a href=#6.1>子程序模板</a><br>
<a href=#7>七、數組與子程序</a><br>
<a href=#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>
<a name=2>二、使用引用</a><br>
本章中，簡單變量指像$pointer這樣的變量，$pointer僅含一個數據項，其可以為數字、字符串或地址。<br>
任何簡單變量均可保存硬引用。因為數組和哈希表含有多個簡單變量，所以可以建立多種組合而成的復雜的數據結構，如數組的數組、哈希表的數組、子程序的哈希表等等。只要你理解其實只是在用簡單變量在工作，就應該可以正確的在最復雜的結構中正確地解除引用。<br>
首先來看一些基本要點。<br>
如果$pointer的值為一個數組的指針，則通過形式@$pointer來訪問數組中的元素。形式@$pointer的意義為“取出$pointer中的地址值當作數組使用”。類似的，%$pointer為指向哈希表中第一個元素的引用。<br>
有多種構建引用的方法，幾乎可以對任何數據建立引用，如數組、簡單變量、子程序、文件句柄，以及--C程序員會感興趣的--引用。Perl使你有能力寫出把自己都搞糊涂的極其復雜的代碼。:)<br>
下面看看Perl中創建和使用引用的方法。<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>
<blockquote>#!/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";</blockquote>
結果輸出如下：<br>
<blockquote>Pointer Address SCALAR(0x806c520) of 10<br>
What Pointer *(SCALAR(0x806c520)) points to 10</blockquote>
每次運行，輸出結果中的地址會有所改變，但可以看到$pointer給出地址，而$$pointer給出$variable的值。<br>
看一下地址的顯示，SCALAR后面一串十六進制，SCALAR說明該地址指向簡單變量（即標量），后面的數字是實際存貯值的地址。<br>
注意：指針就是地址，通過指針可以訪問該地址處存貯的數據。如果指針指向了無效的地址，就會得到不正確的數據。通常情況下，Perl會返回NULL值，但不該依賴于此，一定要在程序中把所有的指針正確地初始化，指向有效的數據項。<br>
<a name=4>四、引用和數組</a><br>
關于Perl語言應該記住的最重要的一點可能是：Perl中的數組和哈希表始終是一維的。因此，數組和哈希表只保存標量值，不直接存貯數組或其它的復雜數據結構。數組的成員要么是數（或字符串）要么是引用。<br>
對數組和哈希表可以象對簡單變量一樣使用反斜線操作符，數組的引用如下：<br>
<blockquote>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 }</blockquote>
運行結果如下：<br>
$ 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; 第5行將引用$pointer指向數組@ARGV，第6行輸出ARGV的地址。$pointer返回數組第一個元素的地址，這與C語言中的數組指針是類似的。第7行調用函數scalar()獲得數組的元素個數，該參數亦可為@ARGV，但用指針則必須用@$pointer的形式指定其類型為數組，$pointer給出地址，@符號說明傳遞的地址為數組的第一個元素的地址。第10行與第7行類似，第11行用形式$$pointer[$i]列出所有元素。<br>
對關聯數組使用反斜線操作符的方法是一樣的--把所有關聯數組名換成引用$poniter。注意數組和簡單變量（標量）的引用顯示時均帶有類型--ARRAY和SCALAR，哈希表（關聯數組）和函數也一樣，分別為HASH和CODE。下面是哈希表的引用的例子。<br>
<blockquote>#!/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 }</blockquote>
結果輸出如下：<br>
<blockquote>$ 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</blockquote>
與數組類似，通過引用訪問哈希表的元素形式為$$pointer{$index}，當然，$index是哈希表的鍵值，而不僅是數字。還有幾種訪問形式，此外，構建哈希表還可以用=>操作符，可讀性更好些。下面再看一個例子：<br>
<blockquote>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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -