단일 행 Perl 스크립트에서 값 검색

Question

일부 데이터의 출력 파일을 구문 분석하려고하는데이 값을 Windows 쉘로 반환하는 데 문제가 있습니다.

단순한 정규식을 사용하여 값을 반환하고이를 내 셸 변수에 저장하는 것입니다. 하여 Perl.exe의 로컬 복사본에

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

내가 $1에서 발견 된 것을 반환 할 위치 %VAL%이

및 %PERL% 포인트 :

나는 현재이 같은 있습니다.

누군가 적절한 방법을 알려주십시오.

Answer 1

편집 : 그것은 유닉스보다 약간 못 생겼어의 :

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 위키에서 env_var을 참조하십시오.