作者km305 (阿勒...)
看板Perl
标题[问题] 关於字串比对与其後面数字撷取
时间Fri Nov 28 17:53:26 2008
各位板上的高手大家好
我算是一个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
1F：→ giacch:for(@DATA) { /total time (\d+)/; print $1 . "\n"; } 11/28 18:34
2F：→ giacch:回太快修改一下... XD 11/28 18:35
3F：→ giacch:for(@DATA) { print $1 . "\n" if(/total time (\d+)/); } 11/28 18:35
4F：→ km305:那个时间可能是600多的也可以这样用吗? 11/28 22:32
5F：→ giacch:不先试一下吗? 11/28 22:58