# kopiere die Konfigurationsdaten ins Zielverzeichnis

my ($src, $dst) = map { noslashatend( dos2unix($_) ) } @_;
die "Not a directory" unless -d $src;
mkdir $dst;
  
  if(opendir(my $dir, $src)) {
     while(my $file = readdir $dir) {
        next if $file =~ m!^\.\.?$!;
        
        my $srcpath = "$src/$file";
        my $dstpath = "$dst/$file";
        if(-d $srcpath) {
           copy_recursive("C:\\Beispieldaten\\Konfigurationsdaten", "C:\\Temp\\html");
        } else {
           File::Copy::copy( $srcpath, $dstpath );
        }
     }
     closedir $dir;
  }


sub noslashatend {
  my $path = shift || '';
  $path =~ s!/+$!;
  return $path;
}

sub dos2unix {
 my $path = shift || '';
 $path =~ s!\\!/g!;
 return $path;
}