perl 问题解决：一个有多个perl安装程序的机器环境上运行程序的问题

 将编好的 perl程序和Perl 5.8.8的安装包，Work.pl和Perl在一个目录下，采用如下命令启动

1. %~d0
   
2. cd %~p0
   
3. .\Perl\bin\perl.exe "Work.pl"

复制代码

部署在一个安装有oracle（oracle 10g2用的5.8.3perl版本）的机器上，运行提示如下问题：

2011-09-02 20:21

解决方案为在本件开头增加如下代码：

 

BEGIN {
	print "@INC\n";
	$#INC = -1; #将INC环境变量设置为空;
	my $localdir = `cd`;
	chomp $localdir;
	print "***change dir***\n";
	print "***echo pwd: $localdir***\n";	
	my $LibPath = "${localdir}\\Perl\\site\\lib";
	unshift @INC,$LibPath;
	$LibPath = "${localdir}\\Perl\\lib";
	unshift @INC,$LibPath;	
	print "@INC\n";
}