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

最新推荐文章于 2024-08-20 09:44:15 发布

scan724

最新推荐文章于 2024-08-20 09:44:15 发布

阅读量1.5k

点赞数

分类专栏： perl 数据结构

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/53320402

版权

perl 数据结构专栏收录该内容

19 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

本文介绍了Perl中Exporter模块的使用，它是模块导出函数和变量的标准方法。通过@EXPORT和@EXPORT_OK数组，模块可以控制哪些符号被默认导出或按需导出。推荐使用@EXPORT_OK以减少名字空间污染。在导入模块时，可以使用`use`语句的不同形式来选择导入哪些符号。

摘要由CSDN通过智能技术生成

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 dire

了解本专栏