#!/usr/bin/perl

START:
my @files = `find $ARGV[0] -true`;

foreach(@files) {
  #Am Ende einer jeden Zeile bef. sich ein Zeichen, dass nicht benötigt wird
  chop ($_);
  my $fnold = $_;
  #Das könnte man vielleicht besser schreiben, aber ich weiß nicht wie.
  #Die dateien können nicht ohne Sonderzeichen - Escaping umbenannt werden.
  #Linke Seite vom Befehl mv datei_old datein_new  
  $fnold =~ s/\s/\\ /g;
  $fnold =~ s/,/\\,/g;
  $fnold =~ s/'/\\'/g;
  $fnold =~ s/`/\\`/g;
  $fnold =~ s/\(/\\(/g;
  $fnold =~ s/\)/\\)/g;
  $fnold =~ s/\?/\\?/g;
  $fnold =~ s/\!/\\!/g;
  $fnold =~ s/\&/\\&/g;
   #Rechte Seite von mv.
  #Die ungewünschten Zeichen werden entfernt.
  $_ =~ s/\s/_/g;
  $_ =~ s/[^a-zA-Z0-9_\/\.\s-]//g;
  
  
  if ( $fnold ne $_)  {
  
  print "$fnold -> $_\n";
  system ("mv $fnold $_");
  #Da auch Verzeichnisse umben. werden, gibts Probleme -> Neu einlesen.
  goto START;

  }
}

$ perl -e 'print `find $ARGV[0] -true`' "--h`uname -r`"
Unrecognized switch: --h2.6.22.13-0.3-default  (-h will show valid options).

foreach(@foundfiles) {

  if ( -d $_ ) {

  print "directory\n";

  }

  $ofn = $_;

  $_ = lc ($_);
  $_ =~ s/\s/_/g;
  $_ =~ s/[^a-zA-Z0-9_\/\.\s-]//g;

  print "$ofn -> $_\n";
  
  
  #move("te\ st","te_st") or die $!;
  move($ofn,$_) or die $!;
  



}

funktionsname_in_perl ($_,Sonderzeichen_dass_escaped_werden_muss);

$_ =~ s/Sonderzeichen_dass_escaped_werden_muss/\\Sonderzeichen_dass_escaped_werden_muss/g;

my $file = File::Spec->catfile( $dir1, $dir2, $filename );
my $dir = File::Spec->catdir( $dir1, $dir2 );

use FindBin;
use File::Spec;

use lib File::Spec->catdir( $FindBin::Bin, '../lib' );