perl不用export,自动加入自己的搜索和动态链接库环境

perl不用export,自动加入自己的搜索和动态链接库环境

下面以MAC为例,如果是LINUX需要把DYLD发为LD

把下面代码加到代码开头,它就可以自启动了,不需要再EXPORT或者-I

BEGIN {

        #需要加到LOADPATH的路径

my $need = '/usr/local/nagios/pkg/ebase/';

push @INC, $need;

if ( $^O !~ /MSWin32/ ) {

my $ld = $ENV{DYLD_LIBRARY_PATH};

if ( !$ld ) {

$ENV{DYLD_LIBRARY_PATH} = $need;

}

elsif ( $ld !~ m#(^|:)\Q$need\E(:|$)# ) {

$ENV{DYLD_LIBRARY_PATH} .= ':' . $need;

}

else {

$need = "";

}

if ($need) {

exec 'env', $^X, $0, @ARGV;

}

}

}

@import url(http://www.blogjava.net/CuteSoft_Client/CuteEditor/Load.ashx?type=style&file=SyntaxHighlighter.css);@import url(/css/cuteeditor.css);


有兴趣可以访问下我的生活博客： qqmovie.qzone.com