[CLOSED] Dereference hash into hashes by key

mlodato has asked for the wisdom of the Perl Monks concerning the following question:

O Wise Ones,
Is there a one-line way to do something along the lines of:

  my $hash = {
    key1 => 'value1',
    key2 => 'value2',
  };

  my ($hash1, $hash2) = _insert_perl_magic_;
[download]

Such that then $hash1 becomes {key1 => 'value1'} and $hash2 becomes {key2 => 'value2'}?

The closest I've gotten is:

    my @hashes = map { {$_ => $hash->{$_}} } qw(key1 key2);
    my ($hash1, $hash2) = @hashes;
[download]

But it doesn't seem to work in one line (probably because of some lazy generation or something (I confess I don't truly understand how map works)

Comment on [CLOSED] Dereference hash into hashes by key Select or Download Code

Replies are listed 'Best First'.
Re: Dereference hash into hashes by key by soonix (Canon) on May 22, 2018 at 16:28 UTC
What exactly did you try? `my ($hash1, $hash2) = map { {$_ => $hash->{$_}} } qw(key1 key2);` [download] works for me. How did you check the content of `$hash1` and `$hash1` afterwards? Perhaps you had it right but didn't see it...	[reply] [d/l] [select]
Re^2: Dereference hash into hashes by key by mlodato (Acolyte) on May 22, 2018 at 16:44 UTC
See above response. Thanks for your help!	[reply]
Re: Dereference hash into hashes by key by LanX (Saint) on May 22, 2018 at 16:08 UTC
There is no reason why your own solution shouldn't work in one line, if it works in two. Could you please reproduce the problem? What do you get? Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Wikisyntax for the Monastery}	[reply]
Re^2: Dereference hash into hashes by key by mlodato (Acolyte) on May 22, 2018 at 16:44 UTC
Well this is embarrassing. I scrolled back through my repl history and saw that I had typed `($hash1, $hash1) = ...` Thanks!	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.