Exporter - Implements default import method for modules 实现模块的默认导出方法:
简介:
[tomcat@wx03 ~]$ cat hui.pm
package hui;
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(munge $frobnicate); # symbols to export on request
sub munge {
return 9999};
our $frobnicate="dad444ff";
1;
[tomcat@wx03 ~]$ cat a6.pl
use hui qw(munge $frobnicate);;
my $var=&munge ;
print $var."
";
print $frobnicate."
";
[tomcat@wx03 ~]$ perl a6.pl
9999
dad444ff
或者；
[tomcat@wx03 ~]$ cat cai.pm
package cai;
use Exporter 'import'; # gives you Exporter's import() method directly
@EXPORT_OK = qw(munge $frobnicate); # symbols to export on request
sub munge {
return 9999};
our $frobnicate="dad444ff";
1;
[tomcat@wx03 ~]$
[tomcat@wx03 ~]$ cat a6.pl
use cai qw(munge $frobnicate);;
my $var=&munge ;
print $var."
";
print $frobnicate."
";
[tomcat@wx03 ~]$ perl a6.pl
9999
dad444ff
在另外的文件 你希望使用你的模块:
use YourModule qw(frobnicate); # import listed symbols
frobnicate ($left, $right) # calls YourModule::frobnicate
DESCRIPTION ：
Exporter 模块实现一个导入方法 允许一个模块导出函数和变量到用户的名字空间。
很多模块使用Exporter 而不是实现它们自己的导入方法
因为Exporter 提供了一个高度灵活的接口,一个实施优化的用于共同的情况下。
Perl 自动的调用导入当处理一个use语句用于一个模块。
模块和使用时记录在perlfunc和perlmod.
How to Export
数组 @EXPORT and @EXPORT_OK 在一个模块里室友符号列表。
它们会被导出到用户的名字空间,或者它们可以请求被导出,分别的。
符号可以表示函数,引用,数组,hashes或者符号表。
符号必须给定全名。
@EXPORT = qw(afunc $scalar @array); # afunc is a function
@EXPORT_OK = qw(&bfunc %hash *typeglob); # explicit prefix on &bfunc
如果你只要导出函数名字 ,推荐省略&符号, 这种方式速度更快。
Selecting What to Export
不要导出方法名字
默认没有一个很多的理由不导出任何东西
Exports 污染模块使用者的名字空间,如果你必须导出尝试使用@EXPORT_OK
优先于@EXPORT,避免短的或者相同的符号名字来降低名字冲突的风险。
通常没有导出任何但是仍旧可以访问从模块外部使用 YourModule::item_name
或者 对象方法 $blessed_ref->method
它实际上市可以的,以获取私有函数；
my $subref = sub { ... };
$subref->(@args); # Call it as a function
$obj->$subref(@args); # Use it as a method
然而,如果你使用它们用于方法,这取决于你如何继承使用
作为一个一般规则, 如果模块尝试是面向对象的那么什么也不会导出。
如果只是一个函数集,那么 @EXPORT_OK 任何但是use @EXPORT
How to Import 如何导入:
在另外的文件你希望使用你的模块,这里有3种方式来加载你的模块和导入符号表:
use YourModule;
这个导入所有的符号从YourModule's @EXPORT到你的名字空间
use YourModule ();
这个导致perl 加载你的模块但是不导入任何符号表
use YourModule qw(...);
这个导入只是符号表列出在qw里的 到你的名字空间,
所有的列出的符号表必须在你的@EXPORT or @EXPORT_OK
否则错误发生。
除非你想要使用它的高级特性,这可能是你需要知道的 use Exporter
高级功能:
指定导入列表:
如果任何在导入的列表里的条目以!,:或者/开始 那么列表被处理为一系列的规范
可以增加或者删除从导入列表里,它们从左到右处理
[!]name This name only
[!]:DEFAULT All names in @EXPORT
[!]:tag All names in $EXPORT_TAGS{tag} anonymous array
[!]/pattern/ All names in @EXPORT and @EXPORT_OK which match
一个leading ! 表示匹配的名字应该被删除从导入的列表里.
如果第一个指定的是一个删除被看作通过
e.g., Module.pm defines: 模块定义:
@EXPORT = qw(A1 A2 A3 A4 A5);
@EXPORT_OK = qw(B1 B2 B3 B4 B5);
%EXPORT_TAGS = (T1 => [qw(A1 A2 B1 B2)], T2 => [qw(A1 A2 B3 B4)]);
现在你不能使用tags 在@EXPORT or @EXPORT_OK.