Srv_0A,xxxxxxxxx,,xxxxxxxxxxx
Srv_0A,,,
Srv_0A,,,xxxxxxxxxxxxxx
####
Srv_0A,xxxxxxxxx,,xxxxxxxxxxx
Srv_0A,,,
Srv_0A,,xxxxxxxxxxxxxx,
##
##
use strict;
use warnings;
my %data;
while () {
s/^\s+//;
s/\s+$//;
my @fields = split(/\s*,\s*/);
my $server = shift(@fields);
$data{$server} ||= ['', '', ''];
# Merge data.
foreach (0..$#fields) {
$data{$server}[$_] = $fields[$_]
if length $fields[$_];
}
}
print(join(',', $_, @{$data{$_}}), "\n")
foreach keys(%data);
__DATA__
Srv_0A,Axxxxxxxx,,Bxxxxxxxxxx
Srv_0A,,,
Srv_0G,,,
Srv_0B,Cxxxxxxxxx,,Dxxxxxxxx
Srv_0A,,Exxxxxxxxxxxxx,
Srv_0G,Fxxxxxxxxxx,Gxxxxxxxxxxxxx,
Srv_0B,,Hxxxxxxxxxxxxx,