Script, das rekursiv Leerzeichen durch _ ersetzt...

[SeeksTheMoon]

Hallo, ich brauche ein Script, das mir rekursiv von einem Startverzeichnis alle Datei- und Verzeichnisnamen raussucht, die Leerzeichen enthalten und diese durch einen Unterstrich ersetzt.

Mir ist egal, ob es ein Shell-, Perl-, PHP-, tcl-script ist

[micha]

Hi,



#!/bin/sh

if [ ! -d "$1" ];
then
echo "Usage: $0 [DIRECTORY]"
exit 1
fi

Dir="$1/*"

while true;
do
for File in $Dir;
do
[ "$File" == "$Dir" ] && exit 0

if [ -n "`echo "$File" | grep ' '`" ];
then
Name=`echo "$File" | sed -e 's/ /_/g'`
mv -v "$File" "$Name"
fi
done
Dir=$Dir/*
done

# Never reached ;)
exit 0


Gruß micha

[sh_]

Hi, hier ne perl loesung:




#!/usr/bin/perl

use warnings;
use strict;

use File::Find;
use File::Copy;

my $Dir = ".";

sub renameIt {

if (/\s/) {
( my $NewName = $File::Find::name ) =~ s/\s+/_/g;
print "\`$File::Find::name' renamed to \`$NewName'\n" if (move($File::Find::name, $NewName));
}

}

find(\&renameIt, "$Dir");



Edit: mmh.. scheint doch nich zu gehen (bei mir). Komischerweise werden die Verzeichnisse nicht rekursiv durchgegangen, sondern nur das oberste (obwohl perldoc von File::Find was anderes sagt..).