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

看板Perl作者 (阿勒...)時間15年前 (2008/11/28 17:53), 編輯推噓0(005)
留言5則, 2人參與, 最新討論串1/1
各位板上的高手大家好 我算是一個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

11/28 18:34, , 1F
for(@DATA) { /total time (\d+)/; print $1 . "\n"; }
11/28 18:34, 1F

11/28 18:35, , 2F
回太快修改一下... XD
11/28 18:35, 2F

11/28 18:35, , 3F
for(@DATA) { print $1 . "\n" if(/total time (\d+)/); }
11/28 18:35, 3F

11/28 22:32, , 4F
那個時間可能是600多的也可以這樣用嗎?
11/28 22:32, 4F

11/28 22:58, , 5F
不先試一下嗎?
11/28 22:58, 5F
文章代碼(AID): #19Bx-OA0 (Perl)