#!/usr/bin/perl -w

use FindBin;    
use IO::All;
use File::Find;
use Fcntl ':mode';

$path="/home/chris/Arbeitsfläche/KIGA_Skripte";        # pfad in dem alles beginnt

@directories=("$path");                                 # liste der zu durchlaufenden verzeichnisse (hier nur eines)


$datum="20131025";                                      # Suchoption: Jeder Dateiname mit diesem Inhalt wird aufgelistet. 


find(\&wanted, @directories);
sub wanted {
        if (-f && $File::Find::name =~ /.*$datum.*\.skv/)    {    # hier das kriterium nach dem er dateien sucht 
                 @stats = lstat($File::Find::name);
                 push(@copy_files,$File::Find::name);   # schreibt alle gefundenen dateien in @copy_files 
        }
}

foreach $file (@copy_files) {
        $part = $file;
        $part =~ s/^(.*\/).*$/\1/g;                     # Das ist Magie.... ;-)
        
        print "$file \n";                                       # gibt den Pfad + Dateinamen an
        print "$part \n";                                       # gibt nur den Pfad an, UND BIS HIERHER GEHT DAS SKRIPT!

        chdir $FindBin::Bin;                                    # Wechselt in das Verzeichnis in dem sich das ausgeführte Skript befindet (da liegt auch die Datei)

        $temp < io("$file");                                    # Soll die Datei öffnen

        while ($temp =~s/false/0/) {}                           # ersetzt alle "false" durch "0"
        while ($temp =~s/true/1/) {}                            # ersetzt alle "true" durch "1"

        while ($file =~s/Report/Report_mod/) {}                 # Erweiterung des Dateinamen um "_mod". Testdateiname: Report-20131025-0010.skv
        $temp >> io("$file");

}