Schau dir mal File::Find (dazu am Besten auch das Skript find2perl) und/oder glob an (zum iterieren über die Dateien.)
Als "Inspiration":
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.)
Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Schrift
use strict; use warnings;
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
![[Powered by Battie]](/battie/img/powered.png)
