作者handsomegirl (薰)
看板perl
标题Re: [问题] 统计资料
时间Tue Aug 28 14:48:22 2007
※ 引述《handsomegirl (薰)》之铭言：
: 我有多笔资料需要去计算min max avg 与标准差
: 资料格式像是这样
: A 01_1 0.2
: A 01_2 0.3
: A 01_3 0.3
: B 01_1 0.9
: B 01_2 0.9
: B 01_3 1
: 想分别算出A和B的统计资料
: 再印出来
: Name min max avg std
: A 0.2 0.3 0.26 xxxx
: B 0.9 1 0.93 xxxx
: 应该怎麽做比较好?
: 要用hash吗?还是有更好的作法?
後来自己写了一下
open FILE, "c:\\test\\1.txt" or die "Can not open file: $!";
while(<FILE>) {
chomp;
split(/\s+/);
@value = $_[4];
$total =0;
$average = 0;
foreach $value (@value) {
$total += $value;
}
$average = $total/@value;
}
print $average;
close FILE;
但是平均值却是元素的最後一个值
请问有哪里有问题吗?
可以请高手指正吗?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.65.55.161