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