Thread Perl-Einzeiler (1 answers)
Opened by Crian at 2004-05-13 14:57

Crian
 2004-05-13 14:57
#82343 #82343
User since
2003-08-04
5870 Artikel
ModeratorIn
[Homepage]
user image
Ich versuche das auf dem Freaktreffen erworbene Wissen anzuwenden. Ich hab gerade auf meinem Notebook SUSE 9 installiert (wider Erwarten völlig problemfrei) und hab ein paar eigene Quellcodes von verschiedenen CD's zusammengetragen.

Einige davon sind jetzt leider in Großschreibweise, über diese Verzeichnisse jage ich jetzt diesen Einzeiler:

perl -e '@f=<*>;system("mv",$_,lc($_))for@f'

und das funktioniert auch. Allerdings müsste das doch auch noch eleganter gehen bzw. auch rekursiv in Subverzeichnisse. Das Glob erlaubt wohl nicht direkt alle Dateien auch in Unterverzeichnissen mit einzuziehen?!
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View full thread Perl-Einzeiler