從單行Perl腳本檢索值

Question

我試圖解析某些數據的輸出文件，並且在將值返回給我的Windows外殼時遇到問題。

我想要做的只是使用簡單的正則表達式返回一個值，並將其存儲到我的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 

從Silly Batch File Tricks

Answer 2

爲什麼不在腳本中創建變量？請參閱win32 perl wiki上的env_var。