Tek satırlık Perl komut dosyasından geri alma

Question

Bazı veriler için bir çıktı dosyasını ayrıştırmaya çalışıyorum ve değeri Windows kabuğuma döndürmekte sorun yaşıyorum.

Yapmaya çalıştığım şey basit bir normal ifade kullanarak bir değer döndürmek ve bunu kabuk değişkenimde saklamak. Perl.exe yerel bir kopyasını

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

ben $1 bulundu ne iade etmek istiyorum nereye %VAL% olduğunu

ve %PERL% puan:

Şu anda böyle bir şey var.

Birisi bunu yapmanın uygun yolunu işaret edebilir mi?

Answer 1

DÜZENLEME: Unix biraz daha çirkin açıklanmıştır:

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

Veya bir ara dosya ile set /p kullanın:

%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

Neden bu betik içindeki değişkeni yaratmıyorsunuz? win32 perl wiki üzerinde env_var bakın.