perl中模块的编写和使用举例

1.perl中模块的编写和使用

      这里使用一个例子来说明，

      编写NinGoo模块，代码如下：

#!/usr/bin/perl -w
package NinGoo;
require Exporter;
use strict;
use warnings;
our @ISA = qw(Exporter);
our @EXPORT = qw(fun_public);
our @version = 1.0;

sub func_private{
        print "This is a private function";
}

sub func_public{
        print "Hello World!!!";
        func_private();
}

1;
__END__

备注：（1）这里面很多的语句都是创建perl模块必需的。（2）模块的文件名和文件内容中package指定的标识符一致，后缀为.pm。如NinGoo模块的文件名为NinGoo.pm.

使用NinGoo模块的代码如下：

#!/usr/bin/perl -w
# creator: NinGoo
# function: test perl module
BEGIN {
        push (@INC,'/home/work/wangzhijian/perl');
}

use strict;
use NinGoo;
NinGoo::func_public();

学习资料参考于：

http://blog.sina.com.cn/s/blog_4be5711f0100utpj.html