Perl中的@INC及引用pm顺序

OGeek|极客世界-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

Perl中的@INC变量用于指定Perl module的查找路径。

如：

$VAR1 = '../lib';
$VAR2 = '/opt/perl/lib/5.8.3/sun4-solaris-thread-multi';
$VAR3 = '/opt/perl/lib/5.8.3';
$VAR4 = '/opt/perl/lib/site_perl/5.8.3/sun4-solaris-thread-multi';
$VAR5 = '/opt/perl/lib/site_perl/5.8.3';
$VAR6 = '/opt/perl/lib/site_perl';
$VAR7 = '.'

此时，如果当前路径下有一个a.pm包，而且'/opt/perl/lib/site_perl/5.8.3'下也有同名包，则'/opt/perl/lib/site_perl/5.8.3/a.pm'会被真正引用。

有时这种行为会不合预期。

这种情况一般可以通过调整@INC中变量顺序进行处理。

用如下语句：

use  lib "path";

会将Path中的路径置于@INC的项端。

如加入lib "../lib"语句后，结果如下

$VAR1 = '/opt/perl/lib/5.8.3/sun4-solaris-thread-multi';
$VAR2 = '/opt/perl/lib/5.8.3';
$VAR3 = '/opt/perl/lib/site_perl/5.8.3/sun4-solaris-thread-multi';
$VAR4 = '/opt/perl/lib/site_perl/5.8.3';
$VAR5 = '/opt/perl/lib/site_perl';
$VAR5 = '.';