perl - 仅使用键创建哈希

Question

只能在 PERL 哈希中推送键，我的意思是，可以在没有相应值的情况下创建哈希吗？

我想创建一个哈希，它的行为就像数组，即只有键而不是对应值的哈希。示例如下:

my %feedHash;
while(<CFG>)
{
    chomp($_);
    my @val=split(/:/,$_);
    chomp($val[0]);
    my $feedId=$val[0];
    if(!exists $feedHash{$feedId})
    {
      print "\n$feedId Feed is not present";
      $hash{$feedId} = undef;
      mkdir "LoadReports/$feedId" or die $!;                    
    }
    else
    {
       print '\nFeed is already present';
    }
}

它发出消息:即使第二次循环中相同的提要ID，“提要不存在”

Answer 1

您可以使用您的键进行散列，其中值设置为 undef

my %hash;
@hash{qw(key1 key2 key3)} = ();

检查/设置特定的哈希键，

if (!exists $hash{key4}) { $hash{key4} = undef }