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。