引言
虽然网上也有,但是写得太多其它信息,寻找起来有点麻烦,理解也有点不方便,所以这里专门写一篇仅仅只有相关内容的文章。
准备包/模块
使用以下代码准备待引入的函数:
文件名为:/home/Clarence/myPackage.pm
#!/usr/bin/perl
package myPackage;
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(test_print);
sub test_print{
print("这是模块的test函数.\n");
}
1;
使用包/模块
使用以下代码引入模块并使用函数刚准备的test_print函数:
文件名为:/home/Clarence/testPackage.pl
#!/usr/bin/perl
my $package_path = "/home/Clarence";
BEGIN {
unshift(@INC,$package_path );
}
use myPackage;
test_print();
结束
没错,就是这么简单,网上写的什么内容都包括,看到我头皮发麻。