Re^3: map to hash of arrays


No such thing as a small change
	PerlMonks

Re^3: map to hash of arrays

by dpuu (Chaplain)

on Jul 26, 2004 at 15:22 UTC ( [id://377453]=note: print w/replies, xml )

Need Help??

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.

Comment on Re^3: map to hash of arrays Download Code

Replies are listed 'Best First'.
Re^4: map to hash of arrays by emilford (Friar) on Jul 27, 2004 at 13:53 UTC
Why would I want to use this over ccn's solution? Is it a matter of efficiency?	[reply]
Re^5: map to hash of arrays by dpuu (Chaplain) on Jul 27, 2004 at 16:26 UTC
I don't think there's any good reason. ccn assumes, obviously correctly, that the entire data is available in a single string. I didn't realise that. Also, I'd be very tempted to use the /x modifier, and insert some comments.	[reply]
Re^6: map to hash of arrays by emilford (Friar) on Jul 27, 2004 at 21:42 UTC
That's the part I'm confused about, however. The data is not available in a single string. If I write the output to file, everything is broken down into seperate lines.	[reply]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://377453]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others making s'mores by the fire in the courtyard of the Monastery: (6)

As of 2024-04-19 17:57 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found