#use strict;
use FileHandle;
# Global Declaration
my($spool,%serverdet);
open (spooler ,"data.dat") or die "Error opening the file\n";
while($spool=<spooler>) {
chomp($spool);
($server,$dat1,$dat2)=split(/,/,$spool);
if($serverdet{$server}) {
$serverdet{$server} .= ";".$dat1.",".$dat2;
}else{
$serverdet{$server} = $dat1.",".$dat2;
}
}
foreach $key (sort keys %serverdet) {
print "Server $key\n";
@val = split(/;/,$serverdet{$key});
foreach $val (sort @val) {
print $val."\n";
}
}
Hope this helps!
code tags added by holli