如何在Windows批处理文件中获取Perl脚本的输出值作为输入？

要实现将Perl脚本输出的1或0传入批处理并根据值执行逻辑，分两步处理即可：

1. 确保Perl脚本输出纯净的1或0 #

你的Perl脚本必须只输出1或0，不能包含任何多余的换行、空格或调试信息，否则批处理捕获的内容会出错。示例Test.pl代码如下：

# 根据业务逻辑判断输出1还是0
if (1) {  # 替换成你的实际判断条件
    print 1;
} else {
    print 0;
}
exit;

2. 在批处理中捕获并判断Perl脚本的输出 #

使用批处理的for /f命令捕获命令的输出并存储到变量中，再通过if语句判断变量值执行对应逻辑。修改后的Test.bat示例：

@echo off
rem 捕获Perl脚本的输出到变量result
for /f "delims=" %%a in ('perl -w Test.pl') do set "result=%%a"

rem 根据输出值执行逻辑
if "%result%"=="1" (
    echo 执行指定操作...
    rem 在这里编写你需要执行的命令
) else (
    goto BatchEnd
)

:BatchEnd
echo 批处理结束

关键说明 #

• for /f "delims=" %%a in ('命令')：执行括号内的Perl命令，将输出内容完整赋值给%%a（delims=确保不分割输出内容），再存入result变量。
• 变量引用需用双引号包裹：if "%result%"=="1"可避免因输出包含空格等特殊字符导致的判断错误。
• 若Perl脚本不在当前目录，需指定完整路径，例如：perl -w "C:\your-path\Test.pl"

内容的提问来源于stack exchange，提问作者ssr1012