ディレクトリツリーを使った設定ファイル管理・その 2 #
File::Slurp::Tree の slurp_tree は、File::Find::Rule を利用して取得するファイルの絞り込みも可能
my $rule = File::Find::Rule->name('license.txt');
my $tree = slurp_tree('/path/to/config', (rule => $rule));
print Dumper $tree;
実行結果
$VAR1 = {
'path' => {
'to' => {
'config' => {
'app00' => {
'license.txt' => '500'
},
'app01' => {
'license.txt' => '0'
}
}
}
}
};