如何将字符串拆分为具有 undef 值的哈希键？

Question

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

我该如何制作它，使其看起来像这样：
哈希 = {NANA => undef，TEKA => undef, KAOE => undef, ...

当然，我总是可以先将其拆分为一个数组
然后循环遍历每个值，然后将它们分配为散列
键...但是是否有更短/更简单的方法来做到这一点？

提前致谢！

Answer 1

您可以拆分字符串并使用映射来生成输出哈希。

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

Answer 2

@hash{ 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";
}