自己写perl 模块

今天终于知道perl模块的基本写法和调用方法了！不过还是有很多地方不懂，慢慢来！先把今天的成果记录下来！

模块文件: test_module.pm

调用文件: perl_test.pl

先是调用文件：

#!perl

# perl_test.pl

use test_module;

test_1;
tess_2;
# test_4;

下面是模块的定义文件：

#!perl

# test_module.pm 

package test_module;    # must
require Exporter;       # must

@ISA = Exporter;
@EXPORT = qw(test_1 test_2 test_3);   # export these symble

sub test_1 {
	print "call test_1 () \r\n";
}

sub test_2 {
	print "call test_2 () \r\n";
}

sub test_3 {
	print "call test_3 () \r\n";
}

sub test_4 {
	print "hay ! don't wake me!!!! \r\n";
}

1;