?? perl12.htm
字號:
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</blockquote>
結果輸出如下：<br>
<blockquote>================== 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 =================</blockquote>
可以看到，前三種形式的輸出顯示了預期的結果，而后兩種則沒有。當你不清楚是否正確時，就輸出結果看看。在Perl中，有不明確的代碼就用print語句輸出來實驗一下，這能使你清楚Perl是怎樣解釋你的代碼的。<br>
<a name=5>五、多維數組</a><br>
語句@array = list;可以創建數組的引用，中括號可以創建匿名數組的引用。下面語句為用于畫圖的三維數組的例子：<br>
$line = ['solid' , 'black' , ['1','2','3']
, ['4','5','6']];<br>
此語句建立了一個含四個元素的三維數組，變量$line指向該數組。前兩個元素是標量，存貯線條的類型和顏色，后兩個元素是匿名數組的引用，存貯線條的起點和終點。訪問其元素語法如下：<br>
<blockquote>$arrayReference->[$index] single-dimensional
array<br>
$arrayReference->[$index1][$index2] two-dimensional array<br>
$arrayReference->[$index1][$index2][$index3] three-dimensional array</blockquote>
可以創建在你的智力、設計經驗和計算機的內存允許的情況下極盡復雜的結構，但最好對可能讀到或管理你的代碼的人友好一些--盡量使代碼簡單些。另一方面，如果你想向別人炫耀你的編程能力，Perl給你足夠的機會和能力編寫連自己都難免糊涂的代碼。:)<br>
建議：當你想使用多于三維的數組時，最好考慮使用其它數據結構來簡化代碼。<br>
下面為創建和使用二維數組的例子：<br>
<blockquote>1 #!/usr/bin/perl<br>
2 #<br>
3 # Using Multi-dimensional Array references<br>
4 #<br>
5 $line = ['solid', 'black', ['1','2','3'] , ['4', '5', '6']];<br>
6 print "\$line->[0] = $line->[0] \n";<br>
7 print "\$line->[1] = $line->[1] \n";<br>
8 print "\$line->[2][0] = $line->[2][0] \n";<br>
9 print "\$line->[2][1] = $line->[2][1] \n";<br>
10 print "\$line->[2][2] = $line->[2][2] \n";<br>
11 print "\$line->[3][0] = $line->[3][0] \n";<br>
12 print "\$line->[3][1] = $line->[3][1] \n";<br>
13 print "\$line->[3][2] = $line->[3][2] \n";<br>
14 print "\n"; # The obligatory output beautifier.</blockquote>
結果輸出如下：<br>
<blockquote>$line->[0] = solid<br>
$line->[1] = black<br>
$line->[2][0] = 1<br>
$line->[2][1] = 2<br>
$line->[2][2] = 3<br>
$line->[3][0] = 4<br>
$line->[3][1] = 5<br>
$line->[3][2] = 6</blockquote>
那么三維數組又如何呢？下面是上例略為改動的版本。<br>
<blockquote>1 #!/usr/bin/perl<br>
2 #<br>
3 # Using Multi-dimensional Array references again<br>
4 #<br>
5 $line = ['solid', 'black', ['1','2','3', ['4', '5', '6']]];<br>
6 print "\$line->[0] = $line->[0] \n";<br>
7 print "\$line->[1] = $line->[1] \n";<br>
8 print "\$line->[2][0] = $line->[2][0] \n";<br>
9 print "\$line->[2][1] = $line->[2][1] \n";<br>
10 print "\$line->[2][2] = $line->[2][2] \n";<br>
11 print "\$line->[2][3][0] = $line->[2][3][0] \n";<br>
12 print "\$line->[2][3][1] = $line->[2][3][1] \n";<br>
13 print "\$line->[2][3][2] = $line->[2][3][2] \n";<br>
14 print "\n";</blockquote>
結果輸出如下：<br>
<blockquote>$line->[0] = solid<br>
$line->[1] = black<br>
$line->[2][0] = 1<br>
$line->[2][1] = 2<br>
$line->[2][2] = 3<br>
$line->[2][3][0] = 4<br>
$line->[2][3][1] = 5<br>
$line->[2][3][2] = 6</blockquote>
訪問第三層元素的方式形如$line->[2][3][0]，類似于C語言中的Array_pointer[2][3][0]。本例中，下標均為數字，當然亦可用變量代替。用這種方法可以把數組和哈希表結合起來構成復雜的結構，如下：<br>
<blockquote>1 #!/usr/bin/perl<br>
2 #<br>
3 # Using Multi-dimensional Array and Hash references<br>
4 #<br>
5 %cube = (<br>
6 '0', ['0', '0', '0'],<br>
7 '1', ['0', '0', '1'],<br>
8 '2', ['0', '1', '0'],<br>
9 '3', ['0', '1', '1'],<br>
10 '4', ['1', '0', '0'],<br>
11 '5', ['1', '0', '1'],<br>
12 '6', ['1', '1', '0'],<br>
13 '7', ['1', '1', '1']<br>
14 );<br>
15 $pointer = \%cube;<br>
16 print "\n Da Cube \n";<br>
17 foreach $i (sort keys %$pointer) {<br>
18 $list = $$pointer{$i};<br>
19 $x = $list->[0];<br>
20 $y = $list->[1];<br>
21 $z = $list->[2];<br>
22 printf " Point $i = $x,$y,$z \n";<br>
23 }</blockquote>
結果輸出如下：<br>
<blockquote>Da Cube<br>
Point 0 = 0,0,0<br>
Point 1 = 0,0,1<br>
Point 2 = 0,1,0<br>
Point 3 = 0,1,1<br>
Point 4 = 1,0,0<br>
Point 5 = 1,0,1<br>
Point 6 = 1,1,0<br>
Point 7 = 1,1,1</blockquote>
這是一個定義立方體的例子。%cube中保存的是點號和坐標，坐標是個含三個數字的數組。變量$list獲取坐標數組的引用：$list
= $$ pointer{$i}; 然后訪問各坐標值：$x = $list->[0]; ... 也可用如下方法給$x、$y和$z賦值：($x,$y,$z)
= @$list;<br>
使用哈希表和數組時，用$和用->是類似的，對數組而言下面兩個語句等效：<br>
$$names[0] = "kamran";<br>
$names->[0] = "kamran";<br>
對哈希表而言下面兩個語句等效：<br>
$$lastnames{"kamran"} = "Husain";<br>
$lastnames->{"kamran"} = "Husain";<br>
Perl中的數組可以在運行中創建和擴展。當數組的引用第一次在等式左邊出現時，該數組自動被創建，簡單變量和多維數組也是一樣。如下句，如果數組contours不存在，則被創建：<br>
$contours[$x][$y][$z] = &xlate($mouseX, $mouseY);<br>
<a name=6>六、子程序的引用</a><br>
perl中子程序的引用與C中函數的指針類似，構造方法如下：<br>
$pointer_to_sub = sub {... declaration of
sub ...};<br>
通過所構造的引用調用子程序的方法為：<br>
&$pointer_to_sub(parameters);<br>
<ul>
<li><a name="6.1">子程序模板</a></li>
</ul>
<br>
子程序的返回值不僅限于數據，還可以返回子程序的引用。返回的子程序在調用處執行，但卻是在最初被創建的調用處被設置，這是由Perl對Closure處理的方式決定的。Closure意即如果你定義了一個函數，它就以最初定義的內容運行。(Closure詳見OOP的參考書)下面的例子中，設置了多個錯誤信息顯示子程序，這樣的子程序定義方法可用于創建模板。<br>
<blockquote>#!/usr/bin/perl<br>
sub errorMsg {<br>
my $lvl = shift;<br>
#<br>
# define the subroutine to run when called.<br>
#<br>
return sub {<br>
my $msg = shift; # Define the error type now.<br>
print "Err Level $lvl:$msg\n"; }; # print later.<br>
}<br>
$severe = errorMsg("Severe");<br>
$fatal = errorMsg("Fatal");<br>
$annoy = errorMsg("Annoying");<br>
<br>
&$severe("Divide by zero");<br>
&$fatal("Did you forget to use a semi-colon?");<br>
&$annoy("Uninitialized variable in use");</blockquote>
結果輸出如下：<br>
<blockquote>Err Level Severe:Divide by zero<br>
Err Level Fatal:Did you forget to use a semi-colon?<br>
Err Level Annoying:Uninitialized variable in use</blockquote>
上例中，子程序errorMsg使用了局域變量$lvl，用于返回給調用者。當errorMsg被調用時，$lvl的值設置到返回的子程序內容中，雖然是用的my函數。三次調用設置了三個不同的$lvl變量值。當errorMsg返回時，$lvl的值保存到每次被聲明時所產生的子程序代碼中。最后三句對產生的子程序引用進行調用時$msg的值被替換，但$lvl的值仍是相應子程序代碼創建時的值。<br>
很混淆是嗎？是的，所以這樣的代碼在Perl程序中很少見。<br>
<a name=7>七、數組與子程序</a><br>
數組利于管理相關數據，本節討論如何向子程序傳遞多個數組。前面我們講過用@_傳遞子程序的參數，但是@_是一個單維數組，不管你傳遞的參數是多少個數組，都按序存貯在@_中，故用形如my(@a,@b)=@_;
的語句來獲取參數值時，全部值都賦給了@a，而@b為空。那么怎么把一個以上的數組傳遞給子程序呢？方法是用引用。見下例：<br>
<blockquote>#!/usr/bin/perl<br>
@names = (mickey, goofy, daffy );<br>
@phones = (5551234, 5554321, 666 );<br>
$i = 0;<br>
sub listem {<br>
my ($a,$b) = @_;<br>
foreach (@$a) {<br>
print "a[$i] = " . @$a[$i] . " " . "\tb[$i] = " .
@$b[$i] ."\n";<br>
$i++;<br>
}<br>
}<br>
&listem(\@names, \@phones);</blockquote>
結果輸出如下：<br>
<blockquote>
<pre>
a[0] = mickey b[0] = 5551234
a[1] = goofy b[1] = 5554321
a[2] = daffy b[2] = 666</pre>
</blockquote>
注意：
<blockquote>1、當想傳遞給子程序的參數是多于一個的數組時一定要使用引用。<br>
2、一定不要在子程序中使用形如 (@variable)=@_; 的語句處理參數，除非你想把所有參數集中到一個長的數組中。</blockquote>
<a name=8>八、文件句柄的引用</a><br>
有時，必須將同一信息輸出到不同的文件，例如，某程序可能在一個實例中輸出到屏幕，另一個輸出到打印機，再一個輸出到記錄文件，甚至同時輸出到這三個文件。相比較于每種處理寫一個單獨的語句，可以有更好的實現方式如下：<br>
spitOut(\*STDIN);<br>
spitOut(\*LPHANDLE);<br>
spitOut(\*LOGHANDLE);<br>
其中子程序spitOut的代碼如下：<br>
<blockquote>sub spitOut {<br>
my $fh = shift;<br>
print $fh "Gee Wilbur, I like this lettuce\n";<br>
}</blockquote>
注意其中文件句柄引用的語法為\*FILEHANDLE。<br>
<p align=center><a href=perl11.htm>上一章</a> <a href=perl13.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 + -