#!/usr/bin/perl -w

#Libaries
use strict;
use warnings;
use Cwd;
use File::Copy;
use File::Find;
#no warnings 'File::Find';
binmode(STDIN, ":encoding(cp437)");
binmode(STDOUT, ":encoding(cp437)");

#Variablendeklaration
my $dat;
my $ende = "A:/";
my $file;
my $ordner;
my $start = "K:/";
my $ziel;
my @dat;
my @dir;

system('cls');

open(A, ">test2.log") || die "Konnte Datei nicht öffnen: $!";

find(\&wanted, $start);

sub wanted {

        #$File::Find::no_chdir => 1;
        $file = $File::Find::name."/";
        
        #Ordnerfilter
        if($file =~ /\$RECYCLE.BIN/) { $file = ""; }
        if($file =~ /Backups\/backup Ubuntu/) { $file = ""; }
        if($file =~ /System Volume Information/) { $file = ""; }
        
        if($file ne "") { push @dir, $file if (-d $file); }
        print A $file."\n";
        
}

close(A);

open(T, ">test.log") || die "Konnte Datei nicht öffnen: $!";

foreach $ordner(@dir) {
        print T $ordner."\n";
        
        #$ziel = $ordner;
        #$ziel =~ s/$start/$ende/g;
        
        #chdir $ordner;
        #@dat = glob();
        
        #foreach $dat(@dat) {
                #if(!-e $ziel) { mkdir $ziel; }
                #copy($ordner."/".$dat, $ziel.$dat);
        #}
}

close(T);