Posted By

deepsoul on 09/14/09

Tagged

list
array

Versions (?)

Last Edited at 09/14/09 04:36pm

Statistics

Viewed 878 times

Favorited by 0 user(s)

Related snippets

Add array elements to hash set

/ Published in: Perl

Perl hash sets are hashes used to represent sets. Their keys are the set elements, and the corresponding values are just 1. For keys that are not set elements, the hash will return undef, equivalent to false.

Adding a whole array to a hash set is often useful, but how to do it is slightly tricky and not widely known. Here goes...

Expand | Embed | Plain Text

Copy this code and paste it in your HTML

my @ary= qw( foo bar bla ack 42 foo );
 
my %set;
@set{@ary}= (1) x @ary;
# by the way: keys %set is now an array containing the elements
# of @ary without duplicates! (though possibly shuffled)
 
# or right during initialisation:
my %set2= map { $_ => 1; } @ary;