Exporter - 实现默认的导入方法用于模块
简介:
In module YourModule.pm:
package YourModule;
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(munge frobnicate); # symbols to export on request 导出的符号
Vsftp:/root/perl/7# cat scan1.pm
package scan1;
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(fun1 frobnicate); ###导出fun1函数
sub fun1() {
my $a=shift;
my $b=shift;
return 67 + $a + $b;
};
Vsftp:/root/perl/7# cat a7.pl
unshift(@INC,"/root/perl/7");
use scan1 qw(fun1);
my $var=&fun1(3,4);
print $var;
print "\n";
Vsftp:/root/perl/7# perl a7.pl
74
package YourModule;
use Exporter 'import'; # gives you Exporter's import() method directly
@EXPORT_OK = qw(munge frobnicate); # symbols to export on request
Vsftp:/root/perl/7# cat scan02.pm
package scan02;
use Exporter 'import'; # gives you Exporter's import() method directly
@EXPORT_OK = qw(fun2 frobnicate); # symbols to export on reques
sub fun2() {
my $a=shift;
return $a -2;
};
1;
Vsftp:/root/perl/7# cat a8.pl
unshift(@INC,"/root/perl/7");
use scan02 qw(fun2);
my $var=&fun2(10);
print $var;
print "\n";
Vsftp:/root/perl/7# perl a8.pl
8
描述:
Exporter 模块实现一个简单的方法 允许一个模块来导出函数和变量到它用户的名字空间。
很多模块使用Exporter 而不是实现他们自己的导入方法
因为Exporter提供了 一个 高度灵活的接口.
Perl 自动调用import 方法 当处理一个使用的声明对于一个模块,
模块使用时在perlfunc and perlmod中说明。
了解模块的内容和如何使用语句 是重要的对于了解Exporter
如何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
如果你只是希望导出函数名字 推荐省略&,这种方式是更快的
选择需要导出的
不要导出方法名字！
不要导出任何除非是默认的
Exports 污染模块用户的名字空间, 如果你必须export 尝试使用@EXPORT_OK优先于@EXPORT
避免短的或者公用的符号名字来创建名字冲突的风险
通常 任何不被导出是访问可以从模块外部访问 使用YourModule::item_name (or $blessed_ref->method)
Vsftp:/root/perl/7# cat scan02.pm
package scan02;
sub fun2() {
my $a=shift;
return $a -2;
};
1;
Vsftp:/root/perl/7# cat a9.pl
unshift(@INC,"/root/perl/7");
use scan02 ;
my $var=&scan02::fun2(10);
print $var;
print "\n";
Vsftp:/root/perl/7# perl a9.pl
8
按惯例 你可以使用一个下划线在名字前来表明它们是内部的 不是公用使用的
它实际是得到私有函数通过:
my $subref = sub { ... };
$subref->(@args); # Call it as a function
$obj->$subref(@args); # Use it as a method
然而你可以使用它们的方法 由你来弄清楚 如何继承工作
作为一个一般性规则,如果模块是尝试被面向对象的那么export nothing.
如果它只是一个函数的集合 那么 @EXPORT_OK 任何除了使用谨慎使用@EXPORT
如何导入:
从其他文件 你希望使用你的模块 有3个基本的方式用来加载你的模块和导入他的符号:
use YourModule;
这个导入所有的符号 从 YourModule's @EXPORT 到你的名字空间
use YourModule ();
这个导致Perl来加载模块但是不导入任何符号
use YourModule qw(...);
这个只导入 列出的符号通过调用者到它们的名字空间。
所有列出的符号必须在你的r @EXPORT or @EXPORT_OK, 否则一个错误发生。
高级功能；
指定导入的列表:
如果 条目的任何在一个导入的列表开始以!, : or / 那么列表是对待为一个特定的系列,
从列表添加或者删除来导入, 他们处理是从左到右的 特定的格式
[!]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
以!开始的 表明 匹配的名字应该是从列表中删除来导入。
如果第一个指定的是一个删除 他是对待为之前通过 :DEFAULT.
如果你需要导入额外的名字除了默认设置 你希望仍旧包含 :DEFAULT
