list_hash_ref.txt

• Back
• Raw format

# dette...
@{$u}{map { join "_", $_, $c } @admin} = map {1} @admin;

# ...er det samme som...
@$u{ map { "${_}_$c" } @admin } = (1) x @admin;

# eller
%$u = (%$u, (map { $_ . "_$c" => 1 } @admin));

# ...som er det samme som...
%hash   = %$u;
@keys   = map { join "_", $_, $c } @admin;
@values = map {1} @admin;

@hash{@keys} = @values;