[問題] 關於字串比對與其後面數字擷取

[km305 (阿勒...)]

各位板上的高手大家好
我算是一個perl的新手
最近想要用perl處理一些數據的問題
不過一直遇到瓶頸 請各位高手幫幫忙

例如：
這是一份文件裡面的幾行文字

total time 154
....
total time 184
....
total time 198
.
.
.
.
有七份這個文件 每個裡面都有total time

我想要擷取每份文件其中的total time後面的數字
然後取總和再除以七做平均
請問要如何做呢??

我是先比對"total time"這個字串
然後在用substr從後面的幾行取出數字
可是因為total time重複很多次
每次都只比對到第一個而已...
請問要如何持續的往下比對?

不好意思 請各位高手多多指教!!

感謝各位~

--



 ^..^  ^. .^   ^..^   ^..^ ^..^ ^﹎^  ^..^         ^..^ ^qp^  ^cc^  ^@@^
 (oo) ( o o )  (OO)  (oo ) (@@) (oo)         (00)  (qp) (oo)  (oo)  (oo)
  豬   肥豬   澎恰恰 牙痛  台灣 睡豬 黑暗中 仰泳中 感冒 哭泣 有斜視 近視

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.124.43.171
→ giacch:for(@DATA) { /total time (\d+)/; print $1 . "\n"; }
→ giacch:回太快修改一下... XD
→ giacch:for(@DATA) { print $1 . "\n" if(/total time (\d+)/); }
→ km305:那個時間可能是600多的也可以這樣用嗎?
→ giacch:不先試一下嗎?