perl 程序处理批处理文件的返回

Question

我正在尝试从 perl 脚本运行批处理文件，但我无法处理批处理文件的返回。下面是我的代码

perl 脚本：

// call a batch file 
        my $output =system("D:\\WORKSPACE\\CC_Triggers\\batch_file.bat");
// based on output check the status of the batch file
        if($output==0){
        print "success in trigger**********";
        }
        else
        {
        print "FAilure**********";
        }

批处理文件：

set "java_output="
setlocal enableDelayedExpansion
//this will call a java program and get return value.
for /f "delims=" %%J in ('java -cp "PMDfileRead.jar;jxl.jar" PMDfileRead') do (
      set "java_output=!java_output! %%J" 
)
endlocal & set java_output=%java_output%

// check the ouput of java and act accordingly
IF %java_output% == 1 (
echo failed
exit(1);
)else (
echo succeeded
)

基本上我正在尝试验证一个 xls 文件并从批处理文件调用的 java 代码返回标志，然后我需要返回到我无法获得的 perl 脚本。在成功和失败的情况下，我得到的输出是“0”，因为输出是成功的。请求更正我的代码或建议我处理这个问题的最佳方法。

Answer 1

编辑：对不起，我以某种方式阅读了 mpapec 的评论，说明了同样的事情。

Perl 部分很好。如果你总是得到一个0，那肯定是批处理脚本在起作用。或者Java。 如果您想检查 Perl 中的返回值是否为零，则必须将其右移 8 位。

my $output = (system("D:\\WORKSPACE\\CC_Triggers\\batch_file.bat")) >> 8;

但由于您只检查是否为零，这在这里应该不是问题。

编辑： 使用 Windows 时，切勿定义环境变量 ERRORLEVEL，因为它会与应用程序返回的实际退出代码混淆。这里有更详细的解释：How do I get the application exit code from a Windows command line?

Answer 2

用反引号替换你的 system() 调用：

一个 system() 包装的调用返回命令的退出状态，而使用 ``'s 返回实际的 STDOUT（即你的 echo 语句）

更多信息： What's the difference between Perl's backticks, system, and exec?

即： 我的 $output = `D:\WORKSPACE\CC_Triggers\batch_file.bat`;