【ningoo】编写Perl模块

Perl支持以模块对代码进行封装。著名的CPAN上就有非常多好用的Module，可以极大的减轻开发量。一个简单的模块：

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\n";
 func_private();
}

1;
__END__

模块的文件名一般以.pm做后缀，名字和package相同，也就是上面这个Module的名字为NinGoo.pm。然后在普通的.脚本中调用：

#!/usr/bin/perl -w
# creator: NinGoo
# function: test perl module

BEGIN {
    push (@INC,'/home/module');
}

use strict;
use NinGoo;

func_public();

O’Relly出版了一系列Perl的图书，比较著名的大骆驼《Programming Perl》在这里有一个在线中文版本的，可以看看。