Linux伊甸园论坛 » Shell编程 » 请教如何取得一列数的平均值及最值

npuhetao 发表于 2007-6-21 20:27

请教如何取得一列数的平均值及最值

输入文件number.txt内容格式如下：
123
456
78
9
65
要求求出平均值及最大和最小值，同时统计出落在各个区间的数量，比如：
[0-100]:5
[200-300]:12
[300-400]:23

请路过大侠出手解惑～

davi 发表于 2007-6-21 20:27

[code]
$ cat 0.txt
123
456
78
9
65

davistar ~/shell
$ awk '{a[NR]=$0;sum+=$0}END{asort(a);printf"min:%d max:%d avg:%f\n" ,a[1],a[NR],sum/NR;while(i++<NR){if(a[i]<=100){j["0-100"]++}else if(a[i]>100 && a[i]<=200){j["100-200"]++}else if(a[i]>200 && a[i]<=500){j["200-500"]++}}for( k in j)print k":",j[k]|"sort" }' 0.txt

min:9 max:456 avg:146.200000
0-100: 3
100-200: 1
200-500: 1
[/code]

li-jiahuan 发表于 2007-6-22 12:54

一个朋友完善了davi的awk版：）
(注意需要用gawk）
[code]
#!/usr/bin/gawk -f
{
    a[NR] = $0;
    sum += $0
}
END {
    asort (a);
    printf "min:%d max:%d avg:%f\n", a[1], a[NR], sum / NR;
    while (i++ < NR) {
        j[int(a[i]/100)]++;
    }
    for (k in j) print k*100 "-" k*100+100 ":", j[k] | "sort"
}
[/code]

咱awk功夫不到家
只好用Perl写了一个
似乎速度还行
[code]
#! /usr/bin/perl -w
use strict;

my $zone = 100;
my %hash;
my ($sum, $min, $max) = (0) x 3;
my $cnt;

open (FH, shift) or die $!;
while (<FH>) {
    chomp; s/\s//g;
    next unless length;
    $min = $_ if $_ < $min;
    $max = $_ if $_ > $max;
    $sum += $_;
    $cnt ++;

    my $s = int( $_ / $zone );
    $hash{ $s * 100 } ++;
}

print "min: $min\tmax: $max\tavg: ", $sum / $cnt, "\n";
for ( sort { $a <=> $b }  keys %hash ) {
    print $_,  " - ", $_ + 100, ": $hash{$_}\n"
}
[/code]

为方便取样测试，附随机数生成
[code]
while (( ++i <= 10000 )) ; do echo $RANDOM >> txt; done
[/code]

npuhetao 发表于 2007-6-22 15:35

多谢啦，辛苦大家了，受益很多

li-jiahuan 发表于 2007-6-22 15:50

如何确认我已经获得了LZ的悬赏呢。。。:lol

npuhetao 发表于 2007-6-22 16:56

。。。当时你还没回复的时候我就把最佳答案给了第一位仁兄了，下次分多了给你们都分点！:loveliness:

davi 发表于 2007-6-22 17:16

:lol :victory: 哈哈 被偶给赶上了

完善的版本比我的好:loveliness:

PS:discuz5的code不好看嘿嘿

li-jiahuan 发表于 2007-6-23 09:34

噢。。。

我着急着回，100都没改成变量名呢。。。
还是晚了

查看完整版本: 请教如何取得一列数的平均值及最值