从单行 Perl 脚本中检索值

Question

我正在尝试解析输出文件中的某些数据，但在将值返回到 Windows shell 时遇到问题。

我想做的只是使用简单的正则表达式返回一个值，并将其存储到我的 shell 变量中。

我目前有这样的情况：

%VAL% = %PERL% -e '$tmp="Value: 1000"; if ($tmp =~ /Value:\s(\d+)/) { print $1; }'

其中 %VAL% 是我想要返回在 $1 中找到的内容的位置，而 %PERL%指向 perl.exe 的本地副本。

有人可以指出这样做的正确方法吗？

Answer 1

编辑：它比 Unix 有点难看：

for /f "tokens=*" %i in ('perl -e "$tmp=\"Value: 1000\"; if ($tmp =~ /Value:\s(\d+)/) { print $1; }"') do set VAL = %i

或者将 set /p 与中间文件一起使用：

%PERL% -e '$tmp="Value: 1000"; if ($tmp =~ /Value:\s(\d+)/) { print $1; }' > file.txt
set /p VAL = < file.txt
del file.txt

来自 愚蠢的批处理文件技巧

Answer 2

为什么不在脚本中创建变量？请参阅 win32 perl wiki 上的 env_var。