ファイルに直接リファレンスを書き込みそれをdoしてperlとして解釈するのが一番簡単。
まずは設定ファイルを作成する
ファイル名:config
database = 'fizz' user = 'bazz' pass = 'fizzbazz'
ファイル名:Sample.pl
use strict; use warnings; use utf8; use feature 'say'; binmode STDOUT, ":utf8"; use Dumpvalue; my $d = Dumpvalue->new(); my $configFile = 'config'; my $config = do $configFile or die "$!"; say $config->{database}; say $config->{user}; say $config->{pass}; $d->dumpValue($config);
実行結果:
fizz bazz fizzbazz 'database' => 'fizz' 'pass' => 'fizzbazz' 'user' => 'bazz'
個人でさくっと読み込みのみの気軽な物が・・・
となるとこれが一番ですかね。
0 件のコメント:
コメントを投稿