第10章 包

<pre name="code" class="python">在Perl里,一个名字空间叫一个包,包提供了基本的制作块,在它上面构造更高级的概念,比如模块和类等。


在OO里,每个对象都属于一个叫做类的组。


典型的类是用一个定义了与该类同名的包名字的模块实现的。


在Perl里的面向对象的编程是通过引用来实现的, 这些引用的引用物知道它们属于哪些类。


最初的当前包叫做"main",不过你可以用package 声明在任何时候把当前的包切换成另外一个,


当前包决定使用哪个符号表查找你的变量,子过程,I/O句柄和格式等。

双冒号可以用于把包名字里的标识符链接起来：$Red::Blue::Var。

这就意味着 $var 属于 Red::Blue 包。

10.1 符号表:

一个包的内容总体在一起称做符号表,符号表都存储在一个散列里,这个散列的名字和该包的名字相同,


但是后面附加了两个冒号。


因此main符号表的名字是%main::,因为main技巧也是缺省的包,Perl把%:: 当作%main::的缩写





-----------------------------------------------------------------------

---------------------------------------------------------

在OO的说法中,每个对象都属于一个叫做类的组。

最初的当前包叫做“main”，
不过你可以用 package 声明在任何时候把当前的包切换成另外一个。当前包决定使用哪
个符号表查找你的变量，子过程，I/O 句柄和格式等。

main包内容:
zjzc01:/root/big3# cat 1.pl 

foreach $key (keys %main::)  
{print "$$key => $main::{$key}
";} 
zjzc01:/root/big3# perl 1.pl 
$version:: => *main::version::
$/ => *main::/
$stderr => *main::stderr
$_<mro.c => *main::_<mro.c
$key => *main::key
$Tie:: => *main::Tie::
$utf8:: => *main::utf8::
$" => *main::"
$re:: => *main::re::
$CORE:: => *main::CORE::
$DynaLoader:: => *main::DynaLoader::
$mro:: => *main::mro::
$stdout => *main::stdout
$attributes:: => *main::attributes::
$ => *main::
$stdin => *main::stdin
$ARGV => *main::ARGV
$INC => *main::INC
$ENV => *main::ENV
$Regexp:: => *main::Regexp::
$UNIVERSAL:: => *main::UNIVERSAL::
$$ => *main::$
$_<perlio.c => *main::_<perlio.c
$main:: => *main::main::
$_<perlmain.c => *main::_<perlmain.c
$PerlIO:: => *main::PerlIO::
$0 => *main::0
$_<universal.c => *main::_<universal.c
$BEGIN => *main::BEGIN
 => *main::
$@ => *main::@
$_<xsutils.c => *main::_<xsutils.c
$STDOUT => *main::STDOUT
$IO:: => *main::IO::
$ => *main::
$_ => *main::_
$STDERR => *main::STDERR
$Internals:: => *main::Internals::
$STDIN => *main::STDIN
$DB:: => *main::DB::


通常,一个package声明如果是一个文件的第一个语句的话就意味着它将被require或者use包含。

但这只是习惯,你可以在任何可以放一个语句的地方放一个package声明。


你可以在多于一个的地方切换到一个包里面


双冒号可以用于把包名字里的标识符链接起来：$Red::Blue::Var。这就意味着 $var 属
于 Red::Blue 包



由于这个原因,每个package声明都必须声明完整的包名字。任何包名字都没有做任何隐含的"前缀"假设


10.1 符号表:


一个包的内容总体在一起称做符号表,符号表都存储在一个散列里, 包的内存是散列

zjzc01:/root/big3# cat 3.pl 
unshift(@INC,"/root/pfwx-master/pfwx-master/lib");  
require Weixin::Message;
#package Weixin::Message;
foreach $key (keys %Weixin::Message::)  
{print "$$key => $main::{$key}
";} 

zjzc01:/root/big3# perl 3.pl 
$__ANON__ => 
$MM_VERIFYUSER_SENDREQUEST => 
$STATE_READ => 
$MM_APPMSG_VOICEREMIND_CONFIRM => 
$encode => 
$MM_DATA_EMOJI => 
$APPMSGTYPE_TEXT => 
$StatusNotifyCode_QUIT_SESSION => 
$_parse_synccheck_data => 
$_parse_send_status_data => 
$MM_DATA_APP_MSG_ATTACH_TYPE => 
$MM_BIZ_DATA_VOICE => 
$MM_CONTACTFLAG_3RDAPPCONTACT => 
$MM_DATA_PRIVATEMSG_IMG => 
$MM_DATA_VIDEO_IPHONE_EXPORT => 
$MM_MEMBER_NOUSER => 
$MM_USERATTRVERIFYFALG_BIZ_VERIFIED => 
$MM_CONTACTFLAG_NOTIFYCLOSECONTACT => 
$_mod_chatroom_member => 
$MM_MEMBER_USERNAMEINVALI


这个散列的名字和该包的名字相同,大师后面附加了两个冒号。


因此main符号表的名字就是%main::  

类似,Red::Blue 包的符号表名字是%Red::Blue::



同时main符号表还包含所有其他顶层的符号表,包括它本身。因此%Red::Blue:: 同时也是%main::Red::Blue::


这也是Exporter在从一个包向另外一个包输出符号的时候采用的方法。比如:

10.2 自动装载: