in reply to hashes

while I'm rather speechless at japhy's elegant solution, if the hash DOES already exist you'll have to do something more like this: 
my %hash # lets assume this already has stuff in it
{
  my %tmp_hash = map /(\S+)\s+(.*)/, <FILE>;
  @hash{ keys %tmp_hash } = @tmp_hash{ keys %tmp_hash };
}

[download]

Replies are listed 'Best First'.
Re: Re: hashes
by Albannach (Monsignor) on May 26, 2001 at 00:14 UTC
    If the hash does exist you could also do this: 

    for (@ListOfData) {
  %hash = (%hash, /(\S+)\s+(.*)/);
}

    [download]
    ... but I have to wonder how fast that would be...

    --
    I'd like to be able to assign to an luser

[reply]
[d/l]
      As you say, having to go through all the items in %hash each time you add a key is definitely _not_ what you want in terms of speed. This is an _ok_ technique if you want to merge two arrays, as was I believe was pointed out in this node's discussion. However, this is best as a "once only" kind of deal.
[reply]
[d/l]
Re: Re: hashes
by Vynce (Friar) on May 26, 2001 at 09:33 UTC

    actually, for pre-existing hash, i'd combine japhy's with albannach's to get 

    %hash = (%hash, (map /(\S+)\s+(.*)/, <FILE>));

    [download]
    or i'd make the assignment part of the loop (which i'd change from map to for): 
    for (<FILE>) {/(\S+)\s+(.*)/ && $hash{$1} = $2}

    [download]
    ... which is what kwolters wanted to avoid.

    unfortunately, despite the fact that hashes can be coerced into arrays in most circumstances, you can't push onto them.

    caveat: i cut & pasted and was not able to test this. i hate being on the road and having my server go boom. .

    .
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom