Your data contains
Srv_0A,xxxxxxxxx,,xxxxxxxxxxx
Srv_0A,,,
Srv_0A,,,xxxxxxxxxxxxxx
Should that be
Srv_0A,xxxxxxxxx,,xxxxxxxxxxx
Srv_0A,,,
Srv_0A,,xxxxxxxxxxxxxx,
If so,
use strict;
use warnings;
my %data;
while (<DATA>) {
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,
If not, how do you merge the two Commission Dates?
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.