Thread Verzeichnis mit Unterverzeichnissen durchsuchen (27 answers)
Opened by Gast at 2003-09-24 11:14

Crian
 2004-06-02 11:50
#55574 #55574
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
[quote=renee,02.06.2004, 09:27]
Code: (dl )
push(@dateien,$_) unless($_ =~ /^\.\.?/);
[/quote]
Das ist böse ... da wird .WichtigesVerzeichnis auch nicht mit aufgenommen...

besser

Code: (dl )
push(@dateien,$_) unless($_ =~ /^\.\.?$/);


oder

Code: (dl )
push(@dateien,$_) unless($_ =~ /^\.{1,2}$/);


oder

Code: (dl )
push(@dateien,$_) unless $_ eq '.' or $_ eq '..';
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 Verzeichnis mit Unterverzeichnissen durchsuchen