#!/usr/bin/perl

use strict;
use 5.004;

sub process_file($) {
    my ($file) = @_;
    open(DATA, "<$file");
    my $urls = 0, my $avgs = 0, my $meds = 0, my $cacs = 0, my $uncs = 0;
    while (<DATA>) {
        my $line = $_;
        my @row = split(/[ \t]+/,$line);
        # $avgs += $row[3];
        $avgs += $row[7] + $row[8] + $row[9] + $row[10] + $row[11];
        $meds += $row[4];
        $cacs += $row[7];
        $uncs += $row[8] + $row[9] + $row[10] + $row[11];
        ++$urls;
    }
    close(DATA);
    printf("%4d %4d %4d %4d  %s\n",
           $avgs/($urls*5), $meds/$urls, $cacs/$urls, $uncs/($urls*4), $file);
}

print "AAvg AMed AUnc ACac  Filename\n";
while ($#ARGV >= 0) {
    process_file($ARGV[0]);
    shift @ARGV;
}