二、包
Perl程序把變量和子程序的名稱存貯到符號(hào)表中，perl的符號(hào)表中名字的集合就稱為包(package)。
1、包的定義
在一個(gè)程序中可以定義多個(gè)包，每個(gè)包有一個(gè)單獨(dú)的符號(hào)表，定義語(yǔ)法為：
package mypack;
此語(yǔ)句定義一個(gè)名為mypack的包，從此以后定義的所有變量和子程序的名字都存貯在該包關(guān)聯(lián)的符號(hào)表中，直到遇到另一個(gè)package語(yǔ)句為止。
每個(gè)符號(hào)表有其自己的一組變量、子程序名，各組名字是不相關(guān)的，因此可以在不同的包中使用相同的變量名，而代表的是不同的變量。如：

$var = 14;
package mypack;
$var = 6;
第一個(gè)語(yǔ)句創(chuàng)建變量$var并存貯在main符號(hào)表中，第三個(gè)語(yǔ)句創(chuàng)建另一個(gè)同名變量$var并存貯在mypack包的符號(hào)表中。
2、在包間切換
在程序里可以隨時(shí)在包間來(lái)回切換，如：

1: #!/usr/local/bin/perl
2:
3: package pack1;
4: $var = 26;
5: package pack2;
6: $var = 34;
7: package pack1;
8: print ("$var\n");
運(yùn)行結(jié)果如下：

$ program
26
$
第三行定義了包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。
3、main包
存貯變量和子程序的名字的缺省符號(hào)表是與名為main的包相關(guān)聯(lián)的。如果在程序里定義了其它的包，當(dāng)你想切換回去使用缺省的符號(hào)表，可以重新指定main包：
package main;
這樣，接下來(lái)的程序就好象從沒(méi)定義過(guò)包一樣，變量和子程序的名字象通常那樣存貯。
4、包的引用
在一個(gè)包中可以引用其它包中的變量或子程序，方法是在變量名前面加上包名和一個(gè)單引號(hào)，如：

package mypack;
$var = 26;
package main;
print ("$mypack'var\n");
這里，$mypack'var為mypack包中的變量$var。
注意：在Perl 5中，包名和變量名用雙冒號(hào)隔開(kāi)，即$mypack::var。單引號(hào)引用的方式仍然支持，但將來(lái)的版本中未必支持。