26. Perl 自定义模块儿

为了提升代码的重用性，perl 语言有一个模块儿的概念，类似于java中的jar包。 这样的话，我们就可以构建自己的函数库， 从而实现代码的重用.

1. 自定义模块儿

1.1 模块儿开发

自定义模块儿名称以后缀名pm 结尾， 如: xx.pm模块儿必须以package 开始， 以1; 结束 # 定义模块儿名称 package $module_name; # 自定义模块儿方法, 可以是多个 sub $fnName{ } # 结束flag 1;

1.2 模块儿引用

perl 引用模块儿中的步骤和java引用其它jar包中的类步骤很相似，类比一下，就很好理解:

添加模块儿搜索路径, 类似于java 中的设置classpath 路径导入需要引用的模块儿名称， 类似于java 中的import 语句调用模块儿中的方法 # 添加模块儿搜索路径，类似于jav中将jar添加到classpath use lib $moduleDir; # 声明引入的模块儿，类似于java 中的import语句 use $moduleName; # 调用模块儿中的方法 $moduleName->$fnName($args...)

2. 示例

笔者习惯于将自定义perl 模块儿存放在目录: /usr/share/perl/mylib/ 中

2.1 创建自定义模块儿

创建模块儿文件： /usr/share/perl/mylib/hello.pm

# 指定模块儿名称 package hello; # 自定义方法 sub say{ my $name=shift; print "hi, $name\n"; } ############################## END ############################## 1;

2.2 引用自定义模块儿

#!/usr/bin/perl #Desc 测试颜色输出模块儿 #Auth zongf #Date 2019-05-20 # 添加模块儿搜索路径 use lib "/usr/share/perl/mylib"; # 引入sout 模块儿 use hello; # 使用 hello::say("zhangsan");

2.3 测试

$ ./test.pl hi, zhangsan