perl - perl config::scoped，可以打印未定义的值吗？

Question

我想在我的 perl 代码中使用 Config::scoped 模块。

这是我的配置：

http_db{
          user      = 'xxx';
          pass = 'aaa';
          dbname = 'data';
          host = 'dataserver.company.cz';
}

当我使用：

    my $cs          = Config::Scoped->new( file => $config);
    my $cfg_hash    = $cs->parse;
    .
    .
    .
    print $cfg_hash->{http_db}{user};  # prints xxx;
    if ( defined( $cfg_hash->{http_dp}{user} ) ) {
          print "defined"; # does not print
    else{
          print "undefined"; # prints
    }

我希望 if 条件得到满足，但事实并非如此。为什么？

Answer 1

如果您的代码正是您在此处包含的内容，那是因为一个简单的错字。

您的 print 语句http_db正确使用密钥，但您的if语句使用http_dp.