Re: [問題] 統計資料
※ 引述《handsomegirl (薰)》之銘言：
: ※ 引述《handsomegirl (薰)》之銘言：
: : 原本是用@value=sort @value
: : max=$value[-1] min=$value[0]
: : 但是在遇到數值表示方式是9.464E-6的時候就會有問題
: : 請問有其他的方式來計算最大最小值嗎?
: #!usr/bin/perl
: use List::Util qw(max min);
: #########################2######################
: chdir "c:\\test\\6";
: @mutifile=glob("*.txt");
^^^ A.txt
發現問題出現在這附近
當我單獨讀取指定的檔案的時候,印出來的東西不會有錯
但是一旦用*去做所有文字檔的時候,數值卻都有問題
請問一下會是怎麼回事呢?
: 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;
: }
: close FILE;
: 總結到最後寫成了這樣的code
: 但是在檢查數值的時候
: 發現有些是對的
: 但有些是錯的
: 是我的運算式有問題嗎?
: 還是哪裡錯了?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.65.55.161
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
