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 ставит время цикла для вас, так что вам не нужно цикла:

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