Thread Perl-Einzeiler
(1 answers)
Opened by Crian at 2004-05-13 14:57
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 |