comment on

Here is all i could come up with:

use strict;

my @a = ('a'..'f');
my $hash;
my $last = 1;

for (reverse @a) {
   $hash->{$_} = $last;
   $last = {$_ => $hash->{$_}};
}
delete $hash->{$a[$_]} for (1..@a);
[download]

Hehehe, i waited until Abigail-II posted first though. Now i am going to spend some time figuring out how that works ... need more coffee!

UPDATE: Ok, let's figure Abigail-II's code out ...

When dealing with loops, a good way to understand the code is to chart out what happens at each iteration -

Iteration 1:

@array = ('a','b','c');
atomic:

$hash = undef;
$hash->{a} = $val; # $val = 1
$val = $hash;

# is ('b','c') > 1 ? yes

Iteration 2:

@array = ('b','c');
atomic:

$hash = undef;
$hash->{b} = $val; # $val = {a => 1}
$val = $hash;

# is ('c') > 1 ? no

Last line: (note that $hash is currently undef)

$hash->{c} = $val; # $val = {b => {a => 1}}

The key to this code is the atomic triple assignment inside the while loop. Break that into 3 seperate assignments and the results are not the same. Abigail-II++ :)

UPDATE*2:
I think i like Anony's answer the best ... now that is using Perl to write Perl! /smack forehead

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In reply to (jeffa) Re: Array to hash refs by jeffa
in thread Array to hash refs by Anonymous Monk

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Pathologically Eclectic Rubbish Lister
	PerlMonks