Opened by alexus-777 at 2004-06-05 12:03
User since
2003-08-04
5872 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5872 Artikel
ModeratorIn
Nein, '.' und '..' darf im Verzeichnis sein, muss aber nicht. Ich weiß nicht was gegen meine Lösung von oben sprechen soll:
Das tut ganz klar das was ich möchte. Und ich muss mich nicht auf irgendwelche Eventualitäten verlassen (etwa: Ist sichergestellt, dass readdir immer zuerst . und .. zurückgibt? Ist sichergestellt, dass immer . und .. vorhanden sind (auch auf einer Diskette im Dosformat, oder könnte da vielleicht nur '.' und eine weitere Datei vorhanden sein, und Dein Code erzählt Dir, die Diskette sei leer))?\n\n
<!--EDIT|Crian|1086545335-->
Code: (dl
)
1
2
3
4
5
opendir DIR, $dir or die $!;
my @files = grep {$_ ne '.' and $_ ne '..'} readdir DIR;
closedir DIR;
print "Verzeichnis leer!" if @files == 0;
Das tut ganz klar das was ich möchte. Und ich muss mich nicht auf irgendwelche Eventualitäten verlassen (etwa: Ist sichergestellt, dass readdir immer zuerst . und .. zurückgibt? Ist sichergestellt, dass immer . und .. vorhanden sind (auch auf einer Diskette im Dosformat, oder könnte da vielleicht nur '.' und eine weitere Datei vorhanden sein, und Dein Code erzählt Dir, die Diskette sei leer))?\n\n
<!--EDIT|Crian|1086545335-->
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