Re^3: calculate average in sliding windows

[marfabe]

in reply to Re^2: calculate average in sliding windows
in thread calculate average in sliding windows

Thanks Eliya
Here's the simplified sample set

position     value
1    1
10    3
30    1
40    2
60    2

And here the output for window size of 30

1-30   1.666666667
31-60  2

[Eliya]

Ok, thanks.  So maybe like this?

#!/usr/bin/perl -lw
use strict;
use constant WINDOW => 30;

my $sum = 0;
my $n   = 0;
my $p   = WINDOW;

while (<DATA>) {
    my ($pos, $val) = split;
    if (eof) {  # corner case
        $sum += $val;
        $n++;
    }
    if ($pos > $p or eof) {
        print $sum / $n if $n > 0;
        $sum = 0;
        $n = 0;
        $p += WINDOW while $pos > $p;
    }
    $sum += $val;
    $n++;
}

__DATA__
1    1
10    3
30    1
40    2
60    2

Output:

1.66666666666667
2

(Upd: fixed handling of corner case)

[marfabe]

Yes!! It works perfectly! Thank you!