Perl one liner用于从文件中提取和求和数字

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