作者handsomegirl (薰)
看板perl
標題Re: [問題] 統計資料
時間Mon Sep 3 15:20:22 2007
※ 引述《handsomegirl (薰)》之銘言：
: ※ 引述《handsomegirl (薰)》之銘言：
: : #!usr/bin/perl
: : use List::Util qw(max min);
: : #########################2######################
: : chdir "c:\\test\\6";
: : @mutifile=glob("*.txt");
: ^^^ A.txt
: 發現問題出現在這附近
: 當我單獨讀取指定的檔案的時候,印出來的東西不會有錯
: 但是一旦用*去做所有文字檔的時候,數值卻都有問題
: 請問一下會是怎麼回事呢?
自問自答XD
後來發現是因為底下的@value沒有歸零
導致一直累加上去,成為有問題的輸出
: : foreach(@mutifile)
: : {
: : open(FILE,$_);
: : @file=<FILE>;
: : close(FILE);
: : foreach(@file) {
: : chomp;
: : split(/\s+/);
: : unshift @value,$_[4];
: : }
: : $max=max @value;
: : $min=min @value;
: : #####計算平均###########
: : foreach $value(@value) {
: : $total += $value;
: : }
: : $average = $total/@value;
: 平均值這裡我多加
: $a=@value;
: 讓它成為個數
: 就沒有問題
: : open f,">>c:\\test\\6\\stastical.txt";
: : print f "$_[1]-- max=$max min=$min avg=$average\n";
: : close f;
@value=0;
pop @value;
讓數值歸零,再把0彈出,以免影響下次運算
: : }
: : close FILE;
: : 總結到最後寫成了這樣的code
: : 但是在檢查數值的時候
: : 發現有些是對的
: : 但有些是錯的
: : 是我的運算式有問題嗎?
: : 還是哪裡錯了?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.65.55.161