How to do I split a string into hash keys with undef values?

Question

Here's my string:
NANA TEKA KAOE FLASK LSKK

How do I make it so that it'll look like this:
HASH = {NANA => undef, TEKA => undef, KAOE => undef, ...

Of course I could always split this into an array first
then loop through each value then assign them as hash
keys... but If there's a shorter/simpler way to do that?

Thanks in advance!

Answer 1

You can split the string and use a map to generate the output hash.

my $string = "NANA TEKA KAOE FLASK LSKK";
my %hash = map { $_ => undef } split(/\s/, $string);

Answer 2

@hash{ split /\\s+/, $string } = ();

Answer 3

I doubt if this is the most succinct way to do it, but it seems to work:

use warnings;
use strict;

my $string = "NAN TEKA KAOE FLASK LSKK";
my %hash = map { ($_ => undef) } split /\s+/, $string;

foreach my $key (keys %hash)
{
    printf "$key => %s\n", (defined($hash{$key})) ? $hash{$key} : "undef";
}