如何将字符串拆分为带有undef值的散列键？

Question

这里是我的字符串：
NANA TEKA KAOE FLASK LSKK

如何让这个它会是这样的：
HASH = {NANA => undef, TEKA => undef, KAOE => undef, ...

当然，我随时可以分成数组第一
然后依次通过这每个值然后分配他们作为散列
键...但如果有一个更简单的方法来做到这一点？

在此先感谢！

Answer 1

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

Answer 2

您可以分割字符串，并使用地图生成输出哈希值。

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

Answer 3

我怀疑这是否是做的最简洁的方式，但它似乎工作：

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"; 
}