为什么从Perl运行时批处理文件的环境变量没有设置?

我试图从perl脚本中调用bat文件,如下所示:

 system("call D:/SIP/run_$file_idx.bat");

然而,我观察到bat中的环境变量无法得到解决。 如果我在命令提示符下单独运行bat文件,它就会工作。

system()是否创建了一个新环境并在其中执行bat文件? 我错过了什么?

if (($ENV{'IPSL_RUN_FLAG'}) eq "TRUE") {

my $Book = $Excel->Workbooks->Open(
    "$ENV{'IPSL_TESTCASES_PATH'}IPSLFeatureLoadRunResults.xls"); 

# Make transparent where the IPSL tarball is installed. 
# Have ControlPanel save results here.

# You can dynamically obtain the number of worksheets, rows, and columns
# through the Excel OLE interface.  Excel's Visual Basic Editor has more
# information on the Excel OLE interface.  Here we just use the first
# worksheet, rows 1 through 4 and columns 1 through 3.

# select worksheet number 1 (you can also select a worksheet by name)

my $count=0;

my $Sheet = $Book->Worksheets("LOADDATA");
my $tmp=0;


foreach my $row (13..776) {
    foreach my $col (17..17) {
        if(($Sheet->Cells($row,$col)->{'Value'} eq "Failed") || 
            ($Sheet->Cells($row,$col)->{'Value'} eq "No Run") ) {
            $cnt_of_current_rerun_testcases++;
            foreach my $col (18..18) {
                # skip empty cells
                next unless defined $Sheet->Cells($row,$col)->{'Value'};
                my $a = $Sheet->Cells($row,$col)->{'Value'};

                my $i = index($a, 'run');  
                $a = substr($a, 0, $i); #remove runTest*  

                print OUT "\n";
                if($count == 0) {
                    print OUT "\nREM "; 
                    print OUT  "*" x 100; 
                    print OUT "\n";
                    print OUT "\ntaskkill /F /FI \"USERNAME eq %USERNAME%\" /IM ips32.exe";
                    print OUT "\ntaskkill /F /FI \"USERNAME eq %USERNAME%\" /IM ipsldb.exe";
                    print OUT "\ntaskkill /F /FI \"USERNAME eq %USERNAME%\" /IM ipsltiu.ex\n";    
                }

                print OUT "c:\n";            
                print OUT "\ncd ";

                $a =~ s/%I/\"%I/g;
                $a=~s/H%/H%\"/g;

                print OUT " $a\n";

                print OUT "\n";
                print OUT "CALL run_SubscribeFeatureOnHIQ.bat";
                print OUT "\n";

                print OUT "sleep 10\n";

                print OUT "\ncd ";
                print OUT " $a\n";
                print OUT "\n";

                print OUT "CALL ";
                $i=$Sheet->Cells($row,$col)->{'Value'};
                $i=~ s/%I/\"%I/g;
                $i=~s/H%/H%\"/g;
                print OUT $i;
                #print OUT  $Sheet->Cells($row,$col)->{'Value'};
                print OUT "\n";

                $count++;
                if($count == $no_simul_tcases) {
                    $sleep_cnt++;
                    print OUT "echo Going for sleep $sleep_cnt\n";
                    print OUT "SLEEP 300";
                    print OUT "\n";
                    $count=0;
                }
            }
        }
    }
}

print OUT "\ntaskkill /F /FI \"USERNAME eq %USERNAME%\" /IM ips32.exe";
print OUT "\ntaskkill /F /FI \"USERNAME eq %USERNAME%\" /IM ipsldb.exe";
print OUT "\ntaskkill /F /FI \"USERNAME eq %USERNAME%\" /IM ipsltiu.ex\n";         
print OUT "\nset IPSL_RUN_FLAG=TRUE";
close OUT ;
system(\"start $ENV{'IPSL_TESTCASES_PATH'}SIP\\run_$file_idx.bat\");

批处理文件是:

taskkill /F /FI "USERNAME eq %USERNAME%" /IM ips32.exe
taskkill /F /FI "USERNAME eq %USERNAME%" /IM ipsldb.exe
taskkill /F /FI "USERNAME eq %USERNAME%" /IM ipsltiu.ex
c:

cd  "%IPSL_TESTCASES_PATH%"SIP\TestCASE\FEATURESINT\INT_cfSRS\INT_cfSRS_cfSERRNG\

CALL run_SubscribeFeatureOnHIQ.bat
sleep 10


cd  "%IPSL_TESTCASES_PATH%"SIP\TestCASE\FEATURESINT\INT_cfSRS\INT_cfSRS_cfSERRNG\

CALL "%IPSL_TESTCASES_PATH%"SIP\TestCASE\FEATURESINT\INT_cfSRS\INT_cfSRS_cfSERRNG\runTest_SRS_INT_SERRNG.bat

可能的解决方法:

通过使用exec,特别是将ENV写入bat文件,我找到了一个解决方法:

print OUT map { "set $_=$ENV{$_}\n" } 
          qw( path USERPROFILE USERNAME ProgramFiles ComSpec APPDATA );

不过,system()仍然存在这个问题。我在回答者中尝试了西南的建议。。