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?

提前感谢!

Answer 1

@hash{ di /s+/,$string } = (

Answer 2

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 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
", (defined($hash{$key})) ? $hash{$key} : "undef";
}

友情链接