Opened by Gast at 2009-02-26 22:47
Schau dir mal File::Find (dazu am Besten auch das Skript find2perl) und/oder glob an (zum iterieren über die Dateien.)
Als "Inspiration":
Wenn man da jetzt noch File::Copy läd, kann man aus dem print einfach ein move machen. (Natürlich sollte das ganze in ein "richtiges" Skript kommen und es sollte zum Beispiel mit "-e $newname" geprüft werden, ob der neue "lowercase"-Dateiname nicht schon existiert etc.)
Als "Inspiration":
Code: (dl
)
perl -le 'for (glob "./*") {$o = $_; tr/[A-Z]/[a-z]/; print $o, $_}'Wenn man da jetzt noch File::Copy läd, kann man aus dem print einfach ein move machen. (Natürlich sollte das ganze in ein "richtiges" Skript kommen und es sollte zum Beispiel mit "-e $newname" geprüft werden, ob der neue "lowercase"-Dateiname nicht schon existiert etc.)