?? perl14.htm
字號:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<title>Perl教程之包和模塊</title>
</head>
<body>
<br>
<p align="center">第十四章 Perl5的包和模塊</p>
<a href="#1">一、require函數(shù)</a><br>
<a href="#1.1">1、require函數(shù)和子程序庫</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、用包定義私有數(shù)據(jù)</a><br>
<a href="#2.8">8、包和系統(tǒng)變量</a><br>
<a href="#2.9">9、訪問符號表</a><br>
<a href="#3">三、模塊</a><br>
<a href="#3.1">1、創(chuàng)建模塊</a><br>
<a href="#3.2">2、導入模塊</a><br>
<a href="#3.3">3、預定義模塊</a><br>
<br>
<a name="1">一、require函數(shù)</a><br>
用require函數(shù)可以把程序分割成多個文件并創(chuàng)建函數(shù)庫。例如，在myfile.pl中有定義好的Perl函數(shù)，可用語句require ("myfile.pl"); 在程序中包含進來。當Perl解釋器看到這一語句，就在內(nèi)置數(shù)組變量@INC指定的目錄中尋找文件myfile.pl。如果找到了，該文件中的語句就被執(zhí)行，否則程序終止并輸出錯誤信息：<br>
Can't find myfile.pl in @INC<br>
作為子程序調(diào)用參數(shù)，文件中最后一個表達式的值成為返回值，require函數(shù)查看其是否為零，若為零則終止。例如myfile.pl最后的語句是：<br>
print ("hello, world!\n");<br>
$var = 0;<br>
因為最后的語句值為零，Perl解釋器輸出下列錯誤信息并推出：<br>
myfile.pl did not reture true value<br>
可以用簡單變量或數(shù)組元素等向require傳遞參數(shù)，如：<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函數(shù)和子程序庫</a><br>
用require函數(shù)可以創(chuàng)建可用于所有Perl程序的子程序庫，步驟如下：<br>
<blockquote>
a、確定存貯子程序庫的目錄<br>
b、將子程序抽取放到單獨的文件中，將文件放到子程序庫目錄<br>
c、每個文件末尾加一句非零值的語句，最簡單的辦法是語句 1;<br>
d、在主程序中用require包含一個或多個所需的文件。<br>
e、運行主程序時，用 -I 選項指定子程序庫目錄，或者在調(diào)用require前將該目錄添加到@INC數(shù)組中。
</blockquote>
例如：假設目錄/u/perldir中存有你的Perl子程序庫，子程序mysub存貯在文件mysub.pl中。現(xiàn)在來包含上該文件：<br>
unshift (@INC, "/u/perldir");<br>
require ("mysub.pl");<br>
對unshift的調(diào)用把目錄/u/perldir添加到@INC數(shù)組，對require的調(diào)用將mysub.pl文件的內(nèi)容包含進來作為程序的一部分。<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后跟著數(shù)字時，則只有其版本高于或等于該數(shù)字時才運行該程序。例如，下面語句表明只有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的包，從此以后定義的所有變量和子程序的名字都存貯在該包關聯(lián)的符號表中，直到遇到另一個package語句為止。<br>
每個符號表有其自己的一組變量、子程序名，各組名字是不相關的，因此可以在不同的包中使用相同的變量名，而代表的是不同的變量。如：<br>
<blockquote>
$var = 14;<br>
package mypack;<br>
$var = 6;
</blockquote>
第一個語句創(chuàng)建變量$var并存貯在main符號表中，第三個語句創(chuàng)建另一個同名變量$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>
運行結(jié)果如下：<br>
<blockquote>
$ program<br>
26<br>
$
</blockquote>
第三行定義了包pack1，第四行創(chuàng)建變量$var，存貯在包pack1的符號表中，第五行定義新包pack2，第六行創(chuàng)建另一個變量$var，存貯在包pack2的符號表中。這樣就有兩個獨立的$var，分別存貯在不同的包中。第七行又指定pack1為當前包，因為包pack1已經(jīng)定義，這樣，所有變量和子程序的定義和調(diào)用都為該包的符號表中存貯的名字。因此第八行對$var的調(diào)用為pack1包中的$var，其值為26。<br>
<a name="2.3">3、main包</a><br>
存貯變量和子程序的名字的缺省符號表是與名為main的包相關聯(lián)的。如果在程序里定義了其它的包，當你想切換回去使用缺省的符號表，可以重新指定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外調(diào)用子程序mysub，則要指定包：$mypack'mysub。<br>
可以在子程序中切換包：<br>
<blockquote>
package pack1;<br>
subroutine mysub {<br>
$var1 = 1;<br>
package pack2;<br>
$var1 = 2;<br>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -