Exporter - 实现默认的导入方法用于模块

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