note
davido
<p>
Well, is the input in the form of one big string, or is it in some other form? I'll assume it's a string.
</p>
<p>
<code>
my $input = "log1 123 log1 233 log1 223 log2 465 log2 231 log2 456";
my @items = split /\s+/, $input;
my %groups;
while ( @items ) {
push @{$groups{ +shift( @items ) }}, shift( @items );
}
print "$_ @{$groups{$_}}\n" foreach sort keys %groups;
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-281137">
<br /><p>Dave</p>
</div></div>
380839
380839