#!/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);