Array in Hash transformieren - #147547 (Allgemeines zu Perl)

topeg

2011-04-10 23:17

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Meinst du so was?

Code (perl): (dl )

1
2
3

my @list=qw(a b c d);
my %hash;
@hash{@list}=map{defined$_?[$_]:[]}(@list[1..$#list],undef);

oder so:

Code (perl): (dl )

1
2

my @list=qw(a b c d);
my %hash=map{$list[$_] => exists$list[$_+1]?[$list[$_+1]]:[]}(0..$#list);

Ohne mindestens einmal alle Elemente durch zu gehen geht es nicht, bei einem Array als Wert.