今天终于知道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;