作者handsomegirl (薰)
看板perl
标题Re: [问题] 统计资料
时间Tue Aug 28 15:32:02 2007
※ 引述《handsomegirl (薰)》之铭言：
: ※ 引述《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;
^^^^^^^^^^^^^
後来发现应该要把这两行删掉
不然会一直加0,没意义
: foreach $value (@value) {
: $total += $value;
: }
: $average = $total/@value;
: }
: print $average;
这里印出的是总和,元素的个数没有数出来
需要加什麽指令吗?
我试过把阵列指到纯量,但是她没有数出个数
: close FILE;
: 但是平均值却是元素的最後一个值
: 请问有哪里有问题吗?
: 可以请高手指正吗?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.65.55.161