全面认识Perl包

本文和大家重点学习一下Perl包的概念，Perl程序把变量和子程序的名称存贮到符号表中，perl的符号表中名字的集合就称为Perl包(package)。

Perl包

Perl程序把变量和子程序的名称存贮到符号表中，perl的符号表中名字的集合就称为Perl包(package)。

1、Perl包的定义

在一个程序中可以定义多个Perl包，每个Perl包有一个单独的符号表，定义语法为：
packagemypack;
此语句定义一个名为mypack的Perl包，从此以后定义的所有变量和子程序的名字都存贮在该Perl包关联的符号表中，直到遇到另一个package语句为止。
每个符号表有其自己的一组变量、子程序名，各组名字是不相关的，因此可以在不同的Perl包中使用相同的变量名，而代表的是不同的变量。如：

$var=14;
packagemypack;
$var=6;
第一个语句创建变量$var并存贮在main符号表中，第三个语句创建另一个同名变量$var并存贮在mypackPerl包的符号表中。

2、在Perl包间切换

在程序里可以随时在Perl包间来回切换，如：

1:#!/usr/local/bin/perl  


2:  


3:packagepack1;  



4:$var=26;  



5:packagepack2;  



6:$var=34;  



7:packagepack1;  


8:print("$var\n");  

运行结果如下：

$program
26
$
第三行定义了Perl包pack1，第四行创建变量$var，存贮在Perl包pack1的符号表中，第五行定义新Perl包pack2，第六行创建另一个变量$var，存贮在Perl包pack2的符号表中。这样就有两个独立的$var，分别存贮在不同的Perl包中。第七行又指定pack1为当前Perl包，因为Perl包pack1已经定义，这样，所有变量和子程序的定义和调用都为该Perl包的符号表中存贮的名字。因此第八行对$var的调用为pack1Perl包中的$var，其值为26。

3、mainPerl包

存贮变量和子程序的名字的缺省符号表是与名为main的Perl包相关联的。如果在程序里定义了其它的Perl包，当你想切换回去使用缺省的符号表，可以重新指定mainPerl包：
packagemain;
这样，接下来的程序就好象从没定义过Perl包一样，变量和子程序的名字象通常那样存贮。

4、Perl包的引用

在一个Perl包中可以引用其它Perl包中的变量或子程序，方法是在变量名前面加上Perl包名和一个单引号，如：

packagemypack;  



$var=26;  



packagemain;  


print("$mypack'var\n");  

这里，$mypack'var为mypackPerl包中的变量$var。
注意：在Perl5中，Perl包名和变量名用双冒号隔开，即$mypack::var。单引号引用的方式仍然支持，但将来的版本中未必支持。

5、指定无当前Perl包

在Perl5中，可以用如下语句指定无当前Perl包：
package;
这时，所有的变量必须明确指出所属Perl包名，否则就无效--错误。
$mypack::var=21;#ok
$var=21;#error-nocurrentpackage
这种情况直到用package语句指定当前Perl包为止。

6、Perl包和子程序

Perl包的定义影响到程序中的所有语句，Perl包括子程序，如：

packagemypack;  


subroutinemysub{  


local($myvar);  


#stuffgoeshere  


}  

这里，mysub和myvar都是Perl包mypack的一部分。在Perl包mypack外调用子程序mysub，则要指定Perl包：$mypack'mysub。
可以在子程序中切换Perl包：

packagepack1;  


subroutinemysub{  



$var1=1;  



packagepack2;  



$var1=2;  



}  

这段代码创建了两个变量$var1，一个在Perl包pack1中，一个在Perl包pack2中，Perl包中的局域变量只能在其定义的子程序等语句块中使用，像普通的局域变量一样。

7、用Perl包定义私有数据

Perl包最通常的用途是用在含有子程序和子程序所使用的全局变量的文件中，为子程序定义这样的Perl包，可以保证子程序使用的全局变量不可在其它地方使用，这样的数据即为私有数据。更进一步，可以保证Perl包名不可在其它地方使用。私有数据例：

1:packageprivpack;  



2:$valtoprint=46;  



3:  


4:packagemain;  


5:#Thisfunctionisthelinktotheoutsideworld.  


6:subprintval{  


7:&privpack'printval();  


8:}  


9:  


10:packageprivpack;  


11:subprintval{  


12:print("$valtoprint\n");  


13:}  


14:  


15:packagemain;  


16:1;#returnvalueforrequire  

此子程序只有在调用printval后才能产生输出。
该文件分为两个部分：与外界联系的部分和私有部分。前者为缺省的mainPerl包，后者为Perl包privpack。第6~8行定义的子程序printval可被其它程序或子程序调用。printval输出变量$valtoprint的值，此变量仅在Perl包privpack中定义和使用。第15、16行确保其被其它程序用require语句Perl包含后工作正常，15行将当前Perl包设置回缺省Perl包main，16行返回非零值使require不报错。

8、Perl包和系统变量

下列变量即使从其它Perl包中调用，也在mainPerl包中起作用：

文件变量STDIN,STDOUT,STDERR和ARGV
变量%ENV,%INC,@INC,$ARGV和@ARGV
其它含有特殊字符的系统变量