Perl Script zum umbenennen groesserer Dateimengen

Hi!

Ich habe folgendes Problem:

Bei der Datenübername von NTFS (NT) auf EXT2 (Linux) haben alle Dateien, die Umalute im Namen hatten einen verkrüppelten Dateinamen (aus Sonderzeichen) bekommen, so daß sie vom Windows Client nicht mehr umbenannt werden konnten!

Weiß jemand ob das Problem bekannt ist und ob es dafür ein Perl Script gibt, mit dem man die Sonderzeichen durch zahlen ersetzen kann, um sie dan vom Windows Client umbenennen zu können?

Mit besten dank für eure Mithilfe

Emanuel Somosan

Hi,

Bei der Datenübername von NTFS (NT) auf EXT2 (Linux) haben
alle Dateien, die Umalute im Namen hatten einen verkrüppelten
Dateinamen (aus Sonderzeichen) bekommen, so daß sie vom
Windows Client nicht mehr umbenannt werden konnten!

Beispiel?

Weiß jemand ob das Problem bekannt ist und ob es dafür ein
Perl Script gibt, mit dem man die Sonderzeichen durch zahlen
ersetzen kann, um sie dan vom Windows Client umbenennen zu
können?

Als erstes könntest Du Dich mal mit dem Modul File::Find beschäftigen. Dieses geht eine komplette Verzeichnisstruktur durch und ruft für jede Datei eine Funktion auf, in der Du beispielsweise die Umbenennung durchführen kannst. Über Regular Expressions sollte es kein Problem sein, einen nutzbaren Namen zu finden.

Cheatah