Perl自定义模块的路径包含问题

Author:NinGooposted onNinGoo.net

Perl模块是重用代码的好方法，但是在调用自定义模块时的路径问题困扰了我许久。之前一直都是通过在代码中直接将自定义模块所在的绝对路径写入到@INC数组来解决的，以下示例，加入perl脚本放置在/opt/perl/bin，而自定义模块放在/opt/perl/lib目录：

BEGIN {
    push (@INC,'/opt/perl/lib');
}

或者

BEGIN {
    unshift @INC,'/opt/perl/lib';
}

或者

 use lib '/opt/perl/lib';

使用绝对路径比较麻烦，如果将程序迁移到另外的安装目录，就需要去更改所有的脚本。而直接在use lib中使用相对路径，如uselib‘../lib’;，测试发现手动执行bin目录下的perl脚本是可以的，但是放到crontab里去跑就找不到模块了。于是想先找到bin目录的路径，然后通过相对路径跳转到lib目录，在《PerlCookbook》终于找到了我想要的，使用FindBin模块就能实现梦想了：

use FindBin qw($Bin);
use lib "$Bin/../lib";

• 编写Perl模块
• 如何在AIX中编译Perl
• 如何让Perl脚本同时只运行一个实例
• 使用Perl发送邮件
• 在Crontab中调度Perl程序的环境变量问题
• MySQL如何获取当前执行的SQL

PermLink:http://www.ningoo.net/html/2009/perl_module_use_lib_path.html

Add Comments(1)|Follow NinGoo@Twitter|GoogleReader