Re^3: map to hash of arrays

in reply to Re^2: map to hash of arrays
in thread map to hash of arrays

Use a while loop, not a map:

  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;
    }
  }
[download]

--Dave
Opinions my own; statements of fact may be in error.

In Section Seekers of Perl Wisdom