亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 請(qǐng)教 一個(gè)有多個(gè)perl安裝程序的機(jī)器環(huán)境上運(yùn)行程序的問題 [打印本頁]
作者: bruce_wang_jane    時(shí)間: 2011-09-02 20:27
標(biāo)題: 請(qǐng)教 一個(gè)有多個(gè)perl安裝程序的機(jī)器環(huán)境上運(yùn)行程序的問題
將編好的perl程序和Perl 5.8.8的安裝包，Work.pl和Perl在一個(gè)目錄下，采用如下命令啟動(dòng)
  1. %~d0
  2. cd %~p0
  3. .\Perl\bin\perl.exe "Work.pl"
復(fù)制代碼
部署在一個(gè)安裝有oracle（oracle 10g2用的5.8.3perl版本）的機(jī)器上，運(yùn)行提示如下問題：


  請(qǐng)大俠支個(gè)招，如何讓我們的perl程序使用當(dāng)前目錄的perl安裝程序，謝謝。
作者: bruce_wang_jane    時(shí)間: 2011-09-04 08:47
頂一下！
作者: Perlvim    時(shí)間: 2011-09-04 09:20
在執(zhí)行腳本中重新設(shè)置環(huán)境變量，將需要加載的Perl目錄放進(jìn)去
作者: bruce_wang_jane    時(shí)間: 2011-09-05 09:16
謝謝，Perlvim ，增加如下代碼解決了。
  1. BEGIN {
  2.         print "@INC\n";
  3.         $#INC = -1; #將INC環(huán)境變量設(shè)置為空;
  4.         my $localdir = `cd`;
  5.         chomp $localdir;
  6.         print "***change dir***\n";
  7.         print "***echo pwd: $localdir***\n";       
  8.         my $LibPath = "${localdir}\\Perl\\site\\lib";
  9.         unshift @INC,$LibPath;
  10.         $LibPath = "${localdir}\\Perl\\lib";
  11.         unshift @INC,$LibPath;       
  12.         print "@INC\n";
  13. }
復(fù)制代碼
作者: nsnake    時(shí)間: 2011-09-07 13:13
use lib;



歡迎光臨 Chinaunix (http://www.72891.cn/) Powered by Discuz! X3.2