1.将数据和函数包装到单独的命名空间中称为封装(encapsulation)(C++程序员称之为类(class),面向对象的perl程序员称之为类)。独胆的命名空间又称之为包(package)。单独的命名空间意味着:对于命名包中的所有变量,perl都持有一个单独的符号表。

2.符号表:在编译程序时,编译器必须记录使用的所有变量名、文件句柄、目录句柄、格式和子函数。perl将这些符号的名称作为键存储在每个包的散列表中。散列的名称与包名相同。与散列键相关联的值是对应的typeglob值,又称为别名(aliase)。typeglob会“glob”所有可用符号名称表达的类型。对于用相同名称表示的每个值,perl实际上会创建单独的内部指针。如下:

 

每个包都有它自己的符号表。无论何时使用包生命,都要切换到该包的符号表。

用户可通过双冒号(::)用包名限定某个由local函数赋值的变量,从而实现在另一个包中访问该变量。此时该变量仍在作用域中,并可从主机符号表中访问它。

由my函数赋值的变量将不能从其所在包的外面访问。他们并没有存储在包符号表中,而是存储在每个调用子函数创建的专用缓冲区里。因此,在使用“my”创建变量时,用户将无法通过包的符号表来访问他们,因为他们根本不在那里。

 

[[email protected] shili]# cat p1.pl
#!/usr/bin/perl -w
use strict;

our (@friends, @dogs, $key, $value);
my($name,$money);
$name="susan";
@friends=qw(tom jack);
@dogs=qw(china usa);
local $main::dou="hello";
$money="dollar";
while(($key,$value) = each(%main::)) {
        print "$key:\t$value\n";
}
[[email protected] shili]# perl p1.pl
Name "main::dou" used only once: possible typo at p1.pl line 9.
/:      *main::/
stderr: *main::stderr
friends:        *main::friends
key:    *main::key
utf8::: *main::utf8::
":      *main::"
CORE::: *main::CORE::
DynaLoader:::   *main::DynaLoader::
strict:::       *main::strict::
stdout: *main::stdout
attributes:::   *main::attributes::
:       *main::
stdin:  *main::stdin
ARGV:   *main::ARGV
value:  *main::value
INC:    *main::INC
ENV:    *main::ENV
Regexp:::       *main::Regexp::
UNIVERSAL:::    *main::UNIVERSAL::
$:      *main::$
_<perlio.c:     *main::_<perlio.c
dou:    *main::dou
main::: *main::main::
Carp::: *main::Carp::
-:      *main::-
_<perlmain.c:   *main::_<perlmain.c
PerlIO:::       *main::PerlIO::
_<universal.c:  *main::_<universal.c
0:      *main::0
BEGIN:  *main::BEGIN                                                                     :*main::
@:      *main::@
_<xsutils.c:    *main::_<xsutils.c
STDOUT: *main::STDOUT
IO:::   *main::IO::
:       *main::
_:      *main::_
+:      *main::+
STDERR: *main::STDERR
Internals:::    *main::Internals::
STDIN:  *main::STDIN
DB:::   *main::DB::
<none>:::       *main::<none>::
dogs:   *main::dogs