Perl-Einzeiler (Allgemeines zu Perl)

[thread]6255[/thread]

Perl-Einzeiler

Crian

2004-05-13 14:57

User since
2003-08-04
5870 Artikel
ModeratorIn

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

ptk

2004-05-13 15:10

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

glob() geht nicht rekursiv in Unterverzeichnisse. Dazu musst du File::Find verwenden oder find oder find2perl. Z.B.

Code: (dl )

    find2perl . -type f -print | perl | perl -nle 'mach was mit $_'

View all threads created 2004-05-13 14:57.