Opened by Arasiel at 2003-12-03 12:00
User since
2003-08-04
5872 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5872 Artikel
ModeratorIn
entweder mit opendir/readdir (siehe perldoc -f opendir bzw. perldoc -f readdir) oder mit File::Find (siehe perldoc File::Find) oder mit glob (...perldoc -f glob)
Letzteres etwa so:
Edit: Zum Selbstfinden: Dann müsste das Programm immer wieder einen ev. seeehr langen Baum an Verzeichnissen durchwandern... kannst ja mal eine Suche über alle Dateien nach *.short laufen lassen, dann siehst Du, wie lange das dauert.\n\n
<!--EDIT|Crian|1070446825-->
Letzteres etwa so:
Code: (dl
)
my @files = glob('d:\dateien\Verzeichnis\*.short');Edit: Zum Selbstfinden: Dann müsste das Programm immer wieder einen ev. seeehr langen Baum an Verzeichnissen durchwandern... kannst ja mal eine Suche über alle Dateien nach *.short laufen lassen, dann siehst Du, wie lange das dauert.\n\n
<!--EDIT|Crian|1070446825-->
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
use strict; use warnings; Link zu meiner Perlseite