Re: Fetch array of values from hashref

[k-mx]

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 );

But for your problem, more clear solution would be:

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

You can read more about slices here:

perldoc perldata
perldoc perlref

[haukex]

But for your problem, more clear solution would be:

my @ar = values %$h;

However, note this form is not equivalent: the order of the returned values will be random.

[AnomalousMonk]

... 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.)

[k-mx]

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'};

You can use it in situations like this