Perl一行代碼提取並彙總文件中的數字

Question

我有一個數據文件。

文件：

Rows: 2 
... 
... 
Rows: 3 

的命令來搜索 '行'。

perl -ne 'while (/Rows\:/gi) { s/([.]*Rows :)([.]*)/$2/i, s/^ *//; print }'` 

給出：

2 
3 

我要總結的值，並給出一個結果作爲5（2 + 3）。

請幫忙。

Answer 1

的-n標誌放while循環給你，這樣你就不會需要循環：

perl -lne '$s += $1 if /^Rows:\s*(\d+)/; END{print $s}' input