#!/afs/athena/contrib/perl/p

%names = ("url", 7,
	  "html", $html = 7,
	  "host", 5);

$field = shift(@ARGV);
$field = $names{$field} unless $field>0;

while(<>){
    split;
    $count{$_[$field]}++;
}

@vals = sort { $count{$b} <=> $count{$a}; } keys %count;
#print("Total unique: $#vals\n");
$i = 1;
for $v (@vals){
    (print("$i--> $v: $count{$v}\n")&&$i++) if ($count{$v} > 5)&&($html?$v=~/html/:1);
    (print("$i-->$v: $count{$v}\n")&&$i++) if $v eq '/';
#    print $v, "\n";
}
