sergiotarxz/ConfigMerger
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

feat: perltidy

Browse Source
This commit is contained in:
sergiotarxz 2020-08-15 18:45:57 +02:00
parent c3134f71cf
commit e535987d5b
1 changed files with 81 additions and 79 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

160
kernel_config_merger.pl
View File

@ -2,90 +2,92 @@ use strict;
use warnings;
package Kernel::Config {
sub new {
my $class = shift;
my %params = @_;
my $self = bless {}, $class;
my $file = $params{file};
$self->_checkIsPlainFileAndReadable( file => $file );
$self->_readConfigFile( file => $file );
$self;
}
sub _checkIsPlainFileAndReadable {
my $self = shift;
my %params = @_;
my $file = $params{file};
die "No file param" unless defined $file;
die "No such file $file" unless -e $file;
die "No plain file $file" unless -f $file;
die "Cannot read $file" unless -r $file;
}
sub new {
my $class = shift;
my %params = @_;
my $self = bless {}, $class;
my $file = $params{file};
$self->_checkIsPlainFileAndReadable( file => $file );
$self->_readConfigFile( file => $file );
$self;
}
sub _readConfigFile {
my $self = shift;
my %params = @_;
my $file = $params{file};
open my $fh, '<', $file or die "Cannot open $file for read";
my $lines = [ <$fh> ];
$lines = [ grep { !(/#/ || /^\s*$/) } @$lines];
my $hash_config = $self->_parseConfigLinesToHash( lines => $lines );
$self->{hash_config} = $hash_config;
}
sub _checkIsPlainFileAndReadable {
my $self = shift;
my %params = @_;
my $file = $params{file};
die "No file param" unless defined $file;
die "No such file $file" unless -e $file;
die "No plain file $file" unless -f $file;
die "Cannot read $file" unless -r $file;
}
sub _parseConfigLinesToHash {
my $self = shift;
my %params = @_;
my $lines = $params{lines};
my $hash_config = { map { chomp; split qr/=/ } @$lines };
return $hash_config;
}
sub _readConfigFile {
my $self = shift;
my %params = @_;
my $file = $params{file};
open my $fh, '<', $file or die "Cannot open $file for read";
my $lines = [<$fh>];
$lines = [ grep { !( /#/ || /^\s*$/ ) } @$lines ];
my $hash_config = $self->_parseConfigLinesToHash( lines => $lines );
$self->{hash_config} = $hash_config;
}
sub hashConfig {
my $self = shift;
$self->{hash_config} = $_[1] if defined $_[1];
return $self->{hash_config};
}
sub _parseConfigLinesToHash {
my $self = shift;
my %params = @_;
my $lines = $params{lines};
my $hash_config = { map { chomp; split qr/=/ } @$lines };
return $hash_config;
}
sub merge {
my $self = shift;
my %params = @_;
my $remote_kernel_config = $params{kernel_config};
my $remote_hash_config = $remote_kernel_config->hashConfig;
my $hash_config = $self->hashConfig;
my $keys = [ keys %$hash_config, keys %$remote_hash_config ];
my $new_hash_config = {
map {
$self->_optionSelectorMergerConfigFirst(
key => $_,
hash_config => $hash_config,
remote_hash_config => $remote_hash_config
)
} @$keys
};
$self->hashConfig( $new_hash_config );
$self;
}
sub hashConfig {
my $self = shift;
$self->{hash_config} = $_[1] if defined $_[1];
return $self->{hash_config};
}
sub _optionSelectorMergerConfigFirst {
my $self = shift;
my %params = @_;
my $key = $params{key};
my $hash_config = $params{hash_config};
my $remote_hash_config = $params{remote_hash_config};
if ( defined $hash_config->{$key} && $hash_config->{$key} !~ /^\s*$/ ) {
return ( $key => $hash_config->{$key} )
} else {
return ( $key => ($remote_hash_config->{$key} // ""));
}
}
sub merge {
my $self = shift;
my %params = @_;
my $remote_kernel_config = $params{kernel_config};
my $remote_hash_config = $remote_kernel_config->hashConfig;
my $hash_config = $self->hashConfig;
my $keys = [ keys %$hash_config, keys %$remote_hash_config ];
my $new_hash_config = {
map {
$self->_optionSelectorMergerConfigFirst(
key => $_,
hash_config => $hash_config,
remote_hash_config => $remote_hash_config
)
} @$keys
};
$self->hashConfig($new_hash_config);
$self;
}
sub plainConfig {
my $self = shift;
my $hash_config = $self->hashConfig;
my $plain_config = join( "\n", ( map { "$_=$hash_config->{$_}" } keys %$hash_config ) );
$plain_config .= "\n";
return $plain_config;
}
sub _optionSelectorMergerConfigFirst {
my $self = shift;
my %params = @_;
my $key = $params{key};
my $hash_config = $params{hash_config};
my $remote_hash_config = $params{remote_hash_config};
if ( defined $hash_config->{$key} && $hash_config->{$key} !~ /^\s*$/ ) {
return ( $key => $hash_config->{$key} );
} else {
return ( $key => ( $remote_hash_config->{$key} // "" ) );
}
}
sub plainConfig {
my $self = shift;
my $hash_config = $self->hashConfig;
my $plain_config = join( "\n", ( map { "$_=$hash_config->{$_}" } keys %$hash_config ) );
$plain_config .= "\n";
return $plain_config;
}
}
print Kernel::Config->new( file => $ARGV[0] )->merge( kernel_config => Kernel::Config->new( file => $ARGV[1] ))->plainConfig;
print Kernel::Config->new( file => $ARGV[0] )->merge( kernel_config => Kernel::Config->new( file => $ARGV[1] ) )
->plainConfig;