Thread Verzeichnis mit Unterverzeichnissen durchsuchen
(27 answers)
Opened by Gast at 2003-09-24 11:14
[quote=renee,02.06.2004, 09:27]
Code: (dl
)
push(@dateien,$_) unless($_ =~ /^\.\.?/); 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 |