Perl中的软件包是什么？

Perl中的package语句将当前命名上下文切换到指定的命名空间（符号表）。因此-

• 包是驻留在其自己的命名空间中的代码的集合。

• 命名空间是唯一变量名称的命名集合（也称为符号表）。

• 命名空间可防止程序包之间的变量名冲突。

• 包使模块的构造成为可能，这些模块在使用时不会破坏模块自身命名空间之外的变量和功能。

• 该包将一直有效，直到调用另一个package语句，或者直到当前块或文件的末尾为止。

• 您可以使用::包限定符显式引用包中的变量。

以下是在文件中包含main和Foo包的示例。在这里，特殊变量__PACKAGE__已用于打印软件包名称。

示例

#!/usr/bin/perl

# This is main package
$i = 1;
print "Package name : " , __PACKAGE__ , " $i\n";
package Foo;

# This is Foo package
$i = 10;
print "Package name : " , __PACKAGE__ , " $i\n";
package main;

# This is again main package
$i = 100;
print "Package name : " , __PACKAGE__ , " $i\n";
print "Package name : " , __PACKAGE__ , " $Foo::i\n";
1;

输出结果

执行以上代码后，将产生以下结果-

Package name : main 1
Package name : Foo 10
Package name : main 100
Package name : main 10