第十四章 Perl5的包和模塊
一、require函數(shù)@reqlist = ("file1.pl", "file2.pl", "file3.pl");還可以不指定文件名，即：
require ($reqlist[$0]);
require ($reqlist[$1]);
require ($reqlist[$2]);
a、確定存貯子程序庫(kù)的目錄例如：假設(shè)目錄/u/perldir中存有你的Perl子程序庫(kù)，子程序mysub存貯在文件mysub.pl中�，F(xiàn)在來(lái)包含上該文件：
b、將子程序抽取放到單獨(dú)的文件中，將文件放到子程序庫(kù)目錄
c、每個(gè)文件末尾加一句非零值的語(yǔ)句，最簡(jiǎn)單的辦法是語(yǔ)句 1;
d、在主程序中用require包含一個(gè)或多個(gè)所需的文件。
e、運(yùn)行主程序時(shí)，用 -I 選項(xiàng)指定子程序庫(kù)目錄，或者在調(diào)用require前將該目錄添加到@INC數(shù)組中。
1、應(yīng)該使用unshift來(lái)向@INC中添加目錄，而不是push。因?yàn)閜ush增加到@INC的末尾，則該目錄將被最后搜尋。2、用require指定Perl版本
2、如果你的庫(kù)文件名與/usr/local/lib/perl中的某文件同名，則不會(huì)被包含進(jìn)來(lái)，因?yàn)閞equire只包含同名文件中的第一個(gè)。
$var = 14;第一個(gè)語(yǔ)句創(chuàng)建變量$var并存貯在main符號(hào)表中，第三個(gè)語(yǔ)句創(chuàng)建另一個(gè)同名變量$var并存貯在mypack包的符號(hào)表中。
package mypack;
$var = 6;
1: #!/usr/local/bin/perl運(yùn)行結(jié)果如下：
2:
3: package pack1;
4: $var = 26;
5: package pack2;
6: $var = 34;
7: package pack1;
8: print ("$var\n");
$ program第三行定義了包pack1，第四行創(chuàng)建變量$var，存貯在包pack1的符號(hào)表中，第五行定義新包pack2，第六行創(chuàng)建另一個(gè)變量$var，存貯在包pack2的符號(hào)表中。這樣就有兩個(gè)獨(dú)立的$var，分別存貯在不同的包中。第七行又指定pack1為當(dāng)前包，因?yàn)榘黳ack1已經(jīng)定義，這樣，所有變量和子程序的定義和調(diào)用都為該包的符號(hào)表中存貯的名字。因此第八行對(duì)$var的調(diào)用為pack1包中的$var，其值為26。
26
$
package mypack;這里，$mypack'var為mypack包中的變量$var。
$var = 26;
package main;
print ("$mypack'var\n");
package mypack;這里，mysub和myvar都是包mypack的一部分。在包mypack外調(diào)用子程序mysub，則要指定包：$mypack'mysub。
subroutine mysub {
local ($myvar);
# stuff goes here
}
package pack1;這段代碼創(chuàng)建了兩個(gè)變量$var1，一個(gè)在包pack1中，一個(gè)在包pack2中，包中的局域變量只能在其定義的子程序等語(yǔ)句塊中使用，像普通的局域變量一樣。
subroutine mysub {
$var1 = 1;
package pack2;
$var1 = 2;
}
1 : package privpack;此子程序只有在調(diào)用printval后才能產(chǎn)生輸出。
2 : $valtoprint = 46;
3 :
4 : package main;
5 : # This function is the link to the outside world.
6 : sub printval {
7 : &privpack'printval();
8 : }
9 :
10: package privpack;
11: sub printval {
12: print ("$valtoprint\n");
13: }
14:
15: package main;
16: 1; # return value for require
9、訪問(wèn)符號(hào)表文件變量STDIN, STDOUT, STDERR 和 ARGV 變量%ENV, %INC, @INC, $ARGV 和 @ARGV 其它含有特殊字符的系統(tǒng)變量
1 : #!/usr/local/bin/perl第3~7行是標(biāo)準(zhǔn)的Perl模塊定義方式。第3行定義包，第4行包含內(nèi)置Perl模塊Exporter，6、7行進(jìn)行子程序和變量的輸出以與外界聯(lián)系。第6行創(chuàng)建名為@EXPORT的特殊數(shù)組，該數(shù)組中的子程序可以被其它程序調(diào)用，這里，myfunc1和myfunc2可以被訪問(wèn)。其它任何在模塊中定義但沒(méi)有賦給數(shù)組@EXPORT的子程序都是私有的，只能在模塊內(nèi)部調(diào)用。第7行創(chuàng)建另一個(gè)名為@EXPORT_OK的特殊數(shù)組，其中含有可被外部程序訪問(wèn)的變量，這里含有$myvar1和$myvar2。
2 :
3 : package Mymodule;
4 : require Exporter;
5 : @ISA = qw(Exporter);
6 : @EXPORT = qw(myfunc1 myfunc2);
7 : @EXPORT_OK = qw($myvar1 $myvar2);
8 :
9 : sub myfunc1 {
10: $myvar1 += 1;
11: }
12:
13: sub myfunc2 {
14: $myvar2 += 2;
15: }
1: #!/usr/local/bin/perl程序輸出如下：
2:
3: use integer;
4: $result = 2.4 + 2.4;
5: print ("$result\n");
6:
7: no integer;
8: $result = 2.4 + 2.4;
9: print ("$result\n");
$ program如果use或no語(yǔ)句出現(xiàn)在語(yǔ)句塊中，則只在該塊的有效范圍內(nèi)起作用，如：
4
4.8
$
use integer;結(jié)果輸出如下：
$result1 = 2.4 + 2.4;
if ($result1 == 4) {
no integer;
$result2 = 3.4 + 3.4;
}
$result3 = 4.4 + 4.4;
4這里，no語(yǔ)句只在if語(yǔ)句中有效，出了if語(yǔ)句仍使用integer模塊，因此4.4在做加法前被轉(zhuǎn)化成了4。
6.8
8
| integer | 使用整數(shù)運(yùn)算 |
| Diagnostics | 輸出較多的診斷信息（警告） |
| English | 允許英文名用作系統(tǒng)變量的別名 |
| Env | 導(dǎo)入環(huán)境變量的Perl模塊 |
| POSIX | POSIX標(biāo)準(zhǔn)（IEEE 1003.1）的Perl接口 |
| Socket | 裝載C語(yǔ)言的套接字處理機(jī)制 |