Shell Programming and Scripting

server1 02/01/2008 groups 10
server1 03/01/2008 groups 15
server1 04/01/2008 groups 20
server2 02/01/2008 users 50
server2 03/01/2008 users 75
server2 04/01/2008 users 100
server2 04/01/2008 users 125

server1  groups 15 20
seerver2 users  100 125

open(FH,"<filename");
while(<FH>){
	@arr=split(" ",$_);
	$t=sprintf("%s %s",$arr[0],$arr[2]);
	$hash{$t}=sprintf("%s %s",$hash{$t},$arr[3]);
}
close(FH);
for $key (keys %hash){
	@temp=split(" ",$hash{$key});
	print $key," ",$temp[$#temp-1]," ",$temp[$#temp],"\n";
}