#!/usr/bin/perl
use warnings;
use strict;


my $file;
my %hash = ();
my $key = '';
my %kon = ();
my @kontrolle = ();
my $count = 0;


while ( defined ( my $line = <DATA> ) ) {
        chomp ( $line );
        if ( $line =~ /^\s*#/ || $line =~ /^\s*$/ ) {
                next;
        }
        elsif ( $line =~ /^\s*Datei\s*=\s*'(.*)'/ ) {
                if ( $file ) {
                        write_to_file ( $file );
                        %hash = ();
                }
                $file = $1;
                if ( ! -f $file ) {
                        open ( my $fh_w, '>>', $file ) or die "$file $!";
                        close ( $fh_w );
                }
                open ( my $fh, '<', $file ) or die "$file $!";
                while ( <$fh> ) {
                        chomp;
                        next if $_ =~ /^\s*#/ || $_ =~ /^\s*$/;
                        if ( /^\s*\[([^\]]+)\]/ ) {
                                $key = $1;
                                next;
                        }
                        my ( $k, $v ) = split /\s*=\s*/;
                        ${$hash{$key}}{$k} = $v;
                }
                close ( $fh );
        } else {
                if ( $line =~ /^\s*\[([^\]]+)\]/ ) {
                        $key = $1;
                        next;
                }
                my ( $k, $v ) = split /\s*=\s*/, $line;
                ${$hash{$key}}{$k} = $v;
                $kon{$k}++;
        }
}

write_to_file ( $file );

sub write_to_file {
        my $file = shift;
        open ( my $fh_write, '>', $file ) or die "$file $!";
                        foreach my $key ( sort keys %hash ) {
                                print $fh_write "[$key]\n";
                                foreach my $k ( sort keys %{$hash{$key}} ) {
                                        foreach ( keys %kon ) {
                                                push ( @kontrolle, [ $file, $key, $k, ${$hash{$key}}{$k} ] ) if $_ eq $k;
                                        }
                                        print $fh_write $k, "=", ${$hash{$key}}{$k}, "\n";
                                }
                        }
        close ( $fh_write );
}

my $dat = '0';
foreach ( sort { $a->[0] cmp $b->[0] || $a->[2] cmp $b->[2] } @kontrolle ) {
        print "\n" if $dat ne $_->[0];
        print "$_->[0]\t: $_->[2]=$_->[3] [$_->[1]] \n";
        $dat = $_->[0];
}


__DATA__
Datei = '/home/manfred/.kde/share/config/kdesktoprc'
[FMSettings]
ShowFileTips=false
[ScreenSaver]
Enabled=false

Datei = '/home/manfred/.kde/share/config/konquerorrc'
[FMSettings]
ShowFileTips=false
[Trash]
ConfirmTrash=false