Re: Fetch array of values from hashref

I think that code must be expressive, so it's nice when you use slices this way:

my $h = { foo => 1, bar => 2 };
@{ $h }{qw/ foo bar /} = ( 667, 889 );
# or postfix form:
# $h->@{qw/ foo bar /} = ( 667, 889 );
[download]

But for your problem, more clear solution would be:

my @ar = values %$h;
# or postfix form:
# my @ar = values $h->%*;
[download]

You can read more about slices here:

perldoc perldata
perldoc perlref
[download]

Comment on Re: Fetch array of values from hashref Select or Download Code

Replies are listed 'Best First'.
Re^2: Fetch array of values from hashref by haukex (Archbishop) on Sep 11, 2019 at 07:39 UTC
But for your problem, more clear solution would be: `my @ar = values %$h;` [download] However, note this form is not equivalent: the order of the returned values will be random.	[reply] [d/l]
Re^2: Fetch array of values from hashref (updated) by AnomalousMonk (Archbishop) on Sep 11, 2019 at 15:36 UTC
... for your problem ... I would go a bit further than haukex and say that the problem exemplified in the OP is to extract the values of a subset \| an ordered subset of hash keys, whereas `values %$h` gives you the values of all keys (in random order!). Again, not an equivalent solution. Update: As a side note, WRT hash key/value ordering it's worth mentioning that keys, values, and each all state that: So long as a given hash is unmodified you may rely on keys, values and each to repeatedly return the same order as each other. See Algorithmic Complexity Attacks in perlsec for details on why hash order is randomized. The actual random ordering will differ from one run of a script to another if this security feature is enabled. (IIRC, this feature, enabled by default, can be disabled during the build of a Perl interpreter.) Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re^3: Fetch array of values from hashref by k-mx (Scribe) on Sep 11, 2019 at 16:30 UTC
Yes, my bad. I thought he needed all values. P.S. I want to share another cool hack, maybe somebody don't know about it: `( \$Param{Foo}, \$Param{Bar} ); \( $Param{Foo}, $Param{Bar} ); \@Param{'Foo', 'Bar'};` [download] You can use it in situations like this	[reply] [d/l]