#!/usr/athena/bin/perl

open (ZDF, "/mit/mkgray/.zdump");

				 
while(<ZDF>) {		
    if(/\w+:/) {
	($name, $amount) = split;
	chop($name);
	$TOTALS{$name} = $TOTALS{$name} + $amount;
	print"$amount.$name'";
    }
}
print"\n";
print"Getting new data...\n";
system("/mit/mkgray/afs/bin/rec > /usr/tmp/.zt");
print"Organizing...\n";
open (ANA, "/usr/tmp/.zt");
while(<ANA>) {			
    if(/\w+:/) {
	($name, $amount) = split;
	chop($name);
	$TOTALS{$name} = $TOTALS{$name} + $amount;
	print"$amount.$name:";
	print";$TOTALS{$name};";
    }
}
sub byvalue { $TOTALS{$b} <=> $TOTALS{$a}; }

@k = sort byvalue keys %TOTALS;
foreach $ky (@k) {
    print"$ky:  $TOTALS{$ky}\n";
    $tot = $tot +$TOTALS{$ky};
}
print ("Total:  $tot\n");