Updated ChangeLog.
[doldaconnect.git] / clients / gaim / statcomp
1 #!/usr/bin/perl
2
3 $x = -1;
4 $data = {};
5
6 while(<>) {
7     if(/^(\d+):/) {
8         if($x != -1) {
9             for $k (keys %$data) {
10                 $sum = $num = 0;
11                 $min = $max = -1;
12                 for $v (@{$data->{$k}}) {
13                     $sum += $v;
14                     $num++;
15                     if(($min == -1) || ($min > $v)) {
16                         $min = $v;
17                     }
18                     if(($max == -1) || ($max < $v)) {
19                         $max = $v;
20                     }
21                 }
22                 $avg = $sum / $num;
23                 $devsum = 0;
24                 for $v (@{$data->{$k}}) {
25                     $devsum += ($v - $avg) ** 2;
26                 }
27                 $dev = sqrt($devsum / $num);
28                 $devmin = $avg - $dev;
29                 $devmax = $avg + $dev;
30                 print "$k $x $avg $dev $devmin $devmax $min $max\n";
31             }
32         }
33         $x = $1;
34         $data = {};
35     } elsif(/(\w+): ([\d.]+)/) {
36         push @{$data->{$1}}, $2;
37     }
38 }