如何將字符串拆分爲帶有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"; 
}