Well the previous answers of @foo{@a}= reverse @a; are simpler code, they still don't make a lot of sense. To make sense of it, you would write:

my %foo= ( a=>3, b=>2, c=>1 );
@foo{values %foo}= keys %foo;
[download]

However is this answer safe? If %foo (which appears to be global) already had something in it, you have completely messed that up. Plus you changed the scope horribly with your my you couldn't resist.

The reverse answers may hide intent, but they are less likely to break other hidden behaviour assumptions which something, somewhere, might rely on.

So while I like your answer better, I would suggest that you note the assumptions you made...

@foo{@a} = reverse @a;
[download]

-Blake

Yeah. That's what I xame up with. No idea when that would ever be useful tho' :)

--
<http://www.dave.org.uk>

"The first rule of Perl club is you don't talk about Perl club."

Perhaps a good answer for the first question would have been....

Not enough information. The output is dependent on the unspecified values of $[ $, and $#

-Blake

@a = ("a", 1, "b", 2, "c", 3);
$i = 0;
grep($foo{$_} = $a[$#a - $i++], @a);

# for each element $_ in @a
# set $foo{$_} to the element OPPOSITE $_ in the array
# %foo = (
#   a => 3, 1 => 'c', b => 2,
#   2 => 'b', c => 1, 3 => 'a',
# )

print $foo{"c"}, "\n";  # 1
[download]

@foo{@a} = reverse @a;
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

On second glance, first glance was wrong, wrong, wrong. It's   %foo{@a} = reverse @a;

Partial credit?

How about partial partial credit?

%foo{@a} = reverse @a;  #should be @foo{@a}
[download]

A hash slice needs '@', otherwise this yields a syntax error (under version 5.6.1 at least).

@foo{@a} = reverse @a;
[download]

MM

Ew! grep in a void context! Bad code! Nasty code!

I hope you won't accept a job in a place that produces such monstrosities :-)

Blessed Be
The Pixel

@a = ('a'..'c');
@foo{@a} = reverse (1..@a);
@foo{values %foo} = keys %foo;
[download]

jeffa

How about

@foo{@a} = reverse @a;
[download]

/\/\averick
perl -l -e "eval pack('h*','072796e6470272f2c5f2c5166756279636b672');"