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."\n";
print $frobnicate."\n";
[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."\n";
print $frobnicate."\n";
[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.