AppConfig ::値を取得するファイル

Question

AppConfig::Fileを設定ファイルの処理に使用しようとしています。しかし、私は常にオブジェクトから空の値を取得しています。次のコードです：

my $state = AppConfig::State->new({ 
    CREATE=>1, 
    }); 
my $cfgfile = AppConfig::File->new($state); 
$cfgfile->parse('sample.cfg'); 
my $temp = $cfgfile->{foo}; 
print "foo value: $temp\n"; 

これはsample.cfgにされています

## comment 
foo = me 

は私が間違って何をしましたか？前もって感謝します。

Answer 1

解決策は、変数の定義にARGCOUNT設定を含めることでした。ファイルから動的に行う方法がわかりません。

use warnings; 
use strict; 

use AppConfig ':argcount'; 
use AppConfig::File; 

my $state = AppConfig::State->new({ 
    CREATE=>1, 
    }); 
$state->define('foo', { ARGCOUNT => ARGCOUNT_ONE }); 
my $cfgfile = AppConfig::File->new($state); 
$cfgfile->parse('sample.cfg'); 
print "state value: '", $state->foo(), "'\n"; 

Answer 2

パーティーに少し遅れましたが、すべてをあらかじめ定義したくない場合は、この機能があります。

use warnings; 
use strict; 

use AppConfig ':argcount'; 

my $config = AppConfig->new({ 
    CREATE => 1, 
    GLOBAL => { ARGCOUNT => ARGCOUNT_ONE }, 
    }); 
$config->file('sample.cfg'); 

print $config->foo(); 
# or 
print $config->get('foo');