作者handsomegirl (薰)
看板perl
标题Re: [问题] 统计资料
时间Mon Sep 3 11:03:40 2007
※ 引述《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