#!/usr/bin/perl
print "Content-type: text/plain\n\n";
$|=1;
&filename("test/");
sub filename {
local $replace_file = "sonderzeichen.txt";
$!=undef;
open(DATEI, "<$replace_file");
print $!;
@zeilen = <DATEI>;
close(DATEI);
for(@zeilen){
@split_line = split(/-!-/, $_);
$from_to{$split_line[0]} = $split_line[1];
}
local ($searchdir) = $_[0];
print "Open $searchdir\n";
opendir(DIR, $searchdir);
local(@files) = readdir(DIR);
print "Basis-Dateiliste:\n";
print "Dirname=$searchdir\n";
for(@files){
print "- $_";
if(-d "$searchdir$_"){
print " - Verzeichnis";
}
print "\n";
}
print "\n";
closedir DIR;
for $dat_name(@files){
if (-d "$searchdir$dat_name"){
if (($dat_name ne ".") and ($dat_name ne "..")){
push(@verzeichnisse,"$searchdir$dat_name");
&filename("$searchdir$dat_name/");
}
}
else{
$dat_name_new = $dat_name;
# Liste "sonderzeichen.txt" veraebeiten
for(keys %from_to){
$dat_name_new =~ s/$_/$from_to{$_}/g;
}
$dat_name_new =~ s/[^A-Za-z0-9_\.]/_/g;
$copy = `copy $searchdir$dat_name $searchdir$dat_name.ren`;
print "\nCopy: $copy\n";
rename("$searchdir$dat_name","$searchdir$dat_name_new");
print "Umbenennung $dat_name -> $dat_name_new";
}
}
}
1;