Data Parsing of multiple lines into fields 1

[max1x]

I have been able to parse the data from many blocks and lines into single fields, but am running into a brain freeze for further correlation. Data looks as follows and I need to make it look like FINAL data. Any pointers and my brain will thank you.

DATASET
sig1 a b c d e
sig1 f g h i j
sig2 a b c d e
sig2 f g h i j

FINAL DATA
sig1 a f b g c h d i e j
sig2 a f b g c h d i e j

 

[rharsh]

How about something like:

my %data;

while (<DATA>) {
	my ($key, @rest) = split;
	push @{$data{$key}}, @rest;
}

foreach (sort keys %data) {
	print join(" ", $_, @{$data{$_}}), "\n";
}

__DATA__
sig1 a b c d e
sig1 f g h i j
sig2 a b c d e
sig2 f g h i j

Of course you'll want to put some error checking in, but hopefully that will get you going.

 

[max1x]

harsh, yes, you definately got me going...