?? perl14.htm
字號:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<title>Perl教程之包和模塊</title>
<LINK rel="stylesheet" href="article.css" type="text/css">
</head>
<body>
<br>
<p align="center">第十四章 Perl5的包和模塊</p>
<p align="center"><a target="_blank" href="http://flamephoenix.126.com">by flamephoenix</a></p>
<a href="#1">一、require函數</a><br>
<a href="#1.1">1、require函數和子程序庫</a><br>
<a href="#1.2">2、用require指定Perl版本</a><br>
<a href="#2">二、包</a><br>
<a href="#2.1">1、包的定義</a><br>
<a href="#2.2">2、在包間切換</a><br>
<a href="#2.3">3、main包</a><br>
<a href="#2.4">4、包的引用</a><br>
<a href="#2.5">5、指定無當前包</a><br>
<a href="#2.6">6、包和子程序</a><br>
<a href="#2.7">7、用包定義私有數據</a><br>
<a href="#2.8">8、包和系統變量</a><br>
<a href="#2.9">9、訪問符號表</a><br>
<a href="#3">三、模塊</a><br>
<a href="#3.1">1、創建模塊</a><br>
<a href="#3.2">2、導入模塊</a><br>
<a href="#3.3">3、預定義模塊</a><br>
<br>
<a name="1">一、require函數</a><br>
用require函數可以把程序分割成多個文件并創建函數庫。例如，在myfile.pl中有定義好的Perl函數，可用語句require ("myfile.pl"); 在程序中包含進來。當Perl解釋器看到這一語句，就在內置數組變量@INC指定的目錄中尋找文件myfile.pl。如果找到了，該文件中的語句就被執行，否則程序終止并輸出錯誤信息：<br>
Can't find myfile.pl in @INC<br>
作為子程序調用參數，文件中最后一個表達式的值成為返回值，require函數查看其是否為零，若為零則終止。例如myfile.pl最后的語句是：<br>
print ("hello, world!\n");<br>
$var = 0;<br>
因為最后的語句值為零，Perl解釋器輸出下列錯誤信息并推出：<br>
myfile.pl did not reture true value<br>
可以用簡單變量或數組元素等向require傳遞參數，如：<br>
<blockquote>
@reqlist = ("file1.pl", "file2.pl", "file3.pl");<br>
require ($reqlist[$0]);<br>
require ($reqlist[$1]);<br>
require ($reqlist[$2]);
</blockquote>
還可以不指定文件名，即：<br>
require;<br>
這時，變量$_的值即作為文件名傳遞給require。<br>
注：如果@INC中有多個目錄中含有同一個文件，則只有第一個被包含。<br>
<a name="1.1">1、require函數和子程序庫</a><br>
用require函數可以創建可用于所有Perl程序的子程序庫，步驟如下：<br>
<blockquote>
a、確定存貯子程序庫的目錄<br>
b、將子程序抽取放到單獨的文件中，將文件放到子程序庫目錄<br>
c、每個文件末尾加一句非零值的語句，最簡單的辦法是語句 1;<br>
d、在主程序中用require包含一個或多個所需的文件。<br>
e、運行主程序時，用 -I 選項指定子程序庫目錄，或者在調用require前將該目錄添加到@INC數組中。
</blockquote>
例如：假設目錄/u/perldir中存有你的Perl子程序庫，子程序mysub存貯在文件mysub.pl中?，F在來包含上該文件：<br>
unshift (@INC, "/u/perldir");<br>
require ("mysub.pl");<br>
對unshift的調用把目錄/u/perldir添加到@INC數組，對require的調用將mysub.pl文件的內容包含進來作為程序的一部分。<br>
注意：<br>
<blockquote>
1、應該使用unshift來向@INC中添加目錄，而不是push。因為push增加到@INC的末尾，則該目錄將被最后搜尋。<br>
2、如果你的庫文件名與/usr/local/lib/perl中的某文件同名，則不會被包含進來，因為require只包含同名文件中的第一個。
</blockquote>
<a name="1.2">2、用require指定Perl版本</a><br>
Perl 5中，可以用require語句來指定程序運行所需的Perl版本。當Perl解釋器看到require后跟著數字時，則只有其版本高于或等于該數字時才運行該程序。例如，下面語句表明只有Perl解釋器為5.001版或更高時才運行該程序：<br>
require 5.001;<br>
<a name="2">二、包</a><br>
Perl程序把變量和子程序的名稱存貯到符號表中，perl的符號表中名字的集合就稱為包(package)。<br>
<a name="2.1">1、包的定義</a><br>
在一個程序中可以定義多個包，每個包有一個單獨的符號表，定義語法為：<br>
package mypack;<br>
此語句定義一個名為mypack的包，從此以后定義的所有變量和子程序的名字都存貯在該包關聯的符號表中，直到遇到另一個package語句為止。<br>
每個符號表有其自己的一組變量、子程序名，各組名字是不相關的，因此可以在不同的包中使用相同的變量名，而代表的是不同的變量。如：<br>
<blockquote>
$var = 14;<br>
package mypack;<br>
$var = 6;
</blockquote>
第一個語句創建變量$var并存貯在main符號表中，第三個語句創建另一個同名變量$var并存貯在mypack包的符號表中。<br>
<a name="2.2">2、在包間切換</a><br>
在程序里可以隨時在包間來回切換，如：<br>
<blockquote>
1: #!/usr/local/bin/perl<br>
2: <br>
3: package pack1;<br>
4: $var = 26;<br>
5: package pack2;<br>
6: $var = 34;<br>
7: package pack1;<br>
8: print ("$var\n");
</blockquote>
運行結果如下：<br>
<blockquote>
$ program<br>
26<br>
$
</blockquote>
第三行定義了包pack1，第四行創建變量$var，存貯在包pack1的符號表中，第五行定義新包pack2，第六行創建另一個變量$var，存貯在包pack2的符號表中。這樣就有兩個獨立的$var，分別存貯在不同的包中。第七行又指定pack1為當前包，因為包pack1已經定義，這樣，所有變量和子程序的定義和調用都為該包的符號表中存貯的名字。因此第八行對$var的調用為pack1包中的$var，其值為26。<br>
<a name="2.3">3、main包</a><br>
存貯變量和子程序的名字的缺省符號表是與名為main的包相關聯的。如果在程序里定義了其它的包，當你想切換回去使用缺省的符號表，可以重新指定main包：<br>
package main;<br>
這樣，接下來的程序就好象從沒定義過包一樣，變量和子程序的名字象通常那樣存貯。<br>
<a name="2.4">4、包的引用</a><br>
在一個包中可以引用其它包中的變量或子程序，方法是在變量名前面加上包名和一個單引號，如：<br>
<blockquote>
package mypack;<br>
$var = 26;<br>
package main;<br>
print ("$mypack'var\n");
</blockquote>
這里，$mypack'var為mypack包中的變量$var。<br>
注意：在Perl 5中，包名和變量名用雙冒號隔開，即$mypack::var。單引號引用的方式仍然支持，但將來的版本中未必支持。<br>
<a name="2.5">5、指定無當前包</a><br>
在Perl 5中，可以用如下語句指定無當前包：<br>
package;<br>
這時，所有的變量必須明確指出所屬包名，否則就無效--錯誤。<br>
$mypack::var = 21; #ok<br>
$var = 21; #error - no current package<br>
這種情況直到用package語句指定當前包為止。<br>
<a name="2.6">6、包和子程序</a><br>
包的定義影響到程序中的所有語句，包括子程序，如：<br>
<blockquote>
package mypack;<br>
subroutine mysub {<br>
local ($myvar);<br>
# stuff goes here<br>
}
</blockquote>
這里，mysub和myvar都是包mypack的一部分。在包mypack外調用子程序mysub，則要指定包：$mypack'mysub。<br>
可以在子程序中切換包：<br>
<blockquote>
package pack1;<br>
subroutine mysub {<br>
$var1 = 1;<br>
package pack2;<br>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -