神奇的PERL-第六个任务（2）

 

本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载

1)         module是 在Perl 里可复用的基本的单元，实质为定义在一个同名文件（以.pm结尾）里面的包。例如：

我们先定义mydeep模块(mydeep.pm)：

#mydeep.pm文件

package mydeep;#包名

#以下两行令本模块 继承Exporter 类，必须要有这2行，否则无法输出符号给外部代码使用

require Exporter;

our @ISA =qw(Exporter);

 

our @EXPORT =qw(myadd);#输出myadd子程序名给外部代码使用，将符号myadd加入@EXPORT数组中。

sub myadd{

      return $_[0]+$_[1];

}

our $y=2;

然后编写perl4-15.pl：

#perl4-15.pl

use mydeep;

print &myadd(10,5);#调用mydeep模块的myadd方法

print "\n";#换行

print $mydeep::y;#输出mydeep模块的$y变量

print "\n";#换行

输出结果如我们所料：

15

2