note
dpuu
Use a while loop, not a map:
<code>
my %hash;
my $key;
while (<>) {
/\S+ : (\S+)/ or die "unexpected line format: $_";
my $value = $1;
if (defined $key) {
push @{ $hash{$key} }, $value;
undef $key;
else {
$key = $value;
}
}
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-183551">
--Dave<br>Opinions my own; statements of fact may be in error.
</div></div>
376713
377423