my $number = 2;
my $word = ${my %x; @x{qw(1 2 3)} = qw(one two three); \%x}{$number};
[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

my %x is not anonymous

It's a lexical within the scope of a block that exits before the dereference and subsequent element lookup. That smells anonymous to me. {grin}

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

I liked merlyn's example so much that I put it to work somewhere (because it can be done, not because this construct is clear or pretty).

By the way, his answer reversed my original hash, but the idea was good, and its implication clear.

To see it in action in a fully functional NATO Phonetic Alphabet Translator see this link. It's an impractical application, and this method isn't the "best way to do it", but it's an example of putting this method to work.

Enjoy!

Dave

"If I had my life to do over again, I'd be a plumber." -- Albert Einstein

print ${+do{@{$_={}}{1..3}=qw[one two three];$_}}{2};
[download]

Pity that I can only ++ it once ;-). Really neat piece of code.
CombatSquirrel.

---

Entropy is the tendency of everything going to hell.

warn
@foo{1,2,3} = ( a .. c );
__END__
abc at - line 1.
[download]

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"

I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).

** The third rule of perl club is a statement of fact: pod is sexy.

Thanks all, I've got it straight now. :) Never hurts to be inquisitive. PodMaster's explanation suddenly turned on the lightbulb.

Dave

"If I had my life to do over again, I'd be a plumber." -- Albert Einstein

How is Perl to know that:

is intended to be a hash declaration, not a list assignment?

Well, actually the following does create a hash:

my %hash;
@hash{ qw/ one two three / } = ( 1..3 );
[download]

And if you don't care about strictures, the  my %hash; part can even be eliminated.

The problem comes when trying to pluck one of its values while defining it, like this:

$someval = ${@hash{ qw/ one two three / } = ( 1..3 )}{two};
[download]

And it only gets worse if you try to make it anonymous by removing the name "hash".

Dave

"If I had my life to do over again, I'd be a plumber." -- Albert Einstein

for( qw/ one one three two one / ) {
    print +{qw/ one 1 two 2 three 3 /}->{$_}, $/;
}
__output__

1
1
3
2
1
[download]

use Language::Functional 'zip';

for( qw/ one one three two one / ) {
    print +{@{zip([qw/one two three/],[1..3])}}->{$_}, $/;
}

__output__

1
1
3
2
1
[download]

_________
broquaint

#!perl

use strict;
use warnings;

foreach my $val ( qw/ one one three two one / ) {
    print scalar { 
             map { @{[(qw/one two three/, reverse (1..3))]}[$_ - 1, -$
+_] } 
                (1..(2 * @{[1..3]}))
          }->{$val},
          "\n";
}
[download]

#!perl

use strict;
use warnings;

foreach my $val ( qw/ one one three two one / ) {
    print scalar { 
                map {
                       my $intern = $_;
                       map { @{$intern}[$_ - 1, -$_] }
                           (1..@{$_})
                    }
                    ([(qw/one two three/, reverse (1..3))])
          }->{$val},
          "\n";
}
[download]

my @keys = qw/ one two three /;
foreach (@keys) {
    print ${{do{
        local @_ = (@keys => 1 .. 3);
        map { $_[$_] => $_[$_+@keys] } 0 .. $#keys
    }}}{$_},"\n";
}
[download]

Makeshifts last the longest.