Re^4: keys of hash

Thanx , it worked .....
I have one more problem.
@array = (10,29,30,19,48,45,89,14,99,41);

my %hash;
@hash{@array} = ();

use Data::Dumper::Simple;
print Dumper(%hash);

Output of this is

%hash = (
'41' => undef,
'14' => undef,
'48' => undef,
'99' => undef,
'30' => undef,
'45' => undef,
'89' => undef,
'10' => undef,
'19' => undef,
'29' => undef
);

here , i want to keep 1 as value of each key instead of undef.

I tried this ...
@hash{@array} = ();

but i got o/p as follows ,

%hash = (
'41' => undef,
'14' => undef,
'48' => undef,
'99' => undef,
'30' => undef,
'45' => undef,
'89' => undef,
'10' => 1,
'19' => undef,
'29' => undef
);

Regards,
Prafull

Comment on Re^4: keys of hash

Replies are listed 'Best First'.
Re^5: keys of hash by choroba (Cardinal) on May 18, 2010 at 11:11 UTC
Try `@hash{@array} = map 1,@a;` [download] It will map 1 to each member of the array.	[reply] [d/l]
Re^6: keys of hash by Fletch (Bishop) on May 18, 2010 at 12:54 UTC
Using `@hash{ @array } = (1) x @array` would be more idiomatic. There's no need to get map involved since you really aren't changing the values of the array at all. The cake is a lie. The cake is a lie. The cake is a lie.	[reply] [d/l]
Re^7: keys of hash by ambrus (Abbot) on May 19, 2010 at 06:49 UTC
I usually use `$hash{$_} = 1 for @array;` instead.	[reply] [d/l]
Re^7: keys of hash by pemungkah (Priest) on May 18, 2010 at 21:09 UTC
This is very pretty and useful. Filed.	[reply]
Re^6: keys of hash by prafull (Novice) on May 18, 2010 at 11:29 UTC
worked .. thanx a lot	[reply]