moj konfig manadżment

expand.pl

#! /usr/bin/perl

use strict;
use warnings;

use Text::Template qw/fill_in_file/;
use Hash::Merge qw/merge/;
use YAML qw/Load LoadFile/;
use IO::All;

my $desc = '';
while(<>) {
        $desc .= $_;
}
$desc = Load($desc);

my $data = {};
foreach my $datafile (@{$desc->{data}}) {
        $data = merge($data, LoadFile($datafile));
}

foreach my $cfgfile (keys %{$desc->{files}}) {
        io($cfgfile) < fill_in_file($desc->{files}->{$cfgfile}, HASH => $data);
}