#!/usr/bin/perl



$file=$ARGV[0];
$collumn=$ARGV[1];
$ofile=$file.".ofile";
$interval=$ARGV[2];
#$collumn=$ARGV[3];

@vmstat = split /\s+/,"r  b  w   swpd   free   buff  cache  si  so    bi    bo   in    cs  us sy id";



open (FILE, "$file") or die "cant open file: $file";
open (OFILE, ">$ofile") or die "cant open file: $ofile";

print "ofile: $ofile\n";
#print "Starting first round";

#sleep 20;
while ( $l = <FILE> ) {

@line = split /\s+/, $l;

if ( "$l" =~ /(\d+)/ ) {
    $i=$collumn;
    $sum += $line[$i];
    $count++;
    if ( $count == $interval ) {
	$average = $sum/$count;
#	print "$average\n";
	print OFILE "$average\n";
	$sum=0;
	$count=0;
    }
}
}

close (FILE);
close (OFILE);