Opened by Gast at 2004-01-13 18:50
Hallo Perl-Community.de,
meine allererste Frage hier, ich hoffe, ich blamier mich nicht ;)
Also:
Es geht darum für eine größere Aufgabe den Inhalt eines Verzeichnises zu sortieren. (Nach Name, Verzeichnis oder Datei, usw...).
Ich wollte zum Einarbeiten mal einfach alle Verzeichnisse, die in einem bestimmtem Verzeichnis vorkommen ausgeben lassen.
Deshalb habe ich Folgendes geschrieben:
Die Ausgabe beschränkt sich aber auf
.
..
also nur die ersten beiden Verzeichnisse.
Wenn ich "-d" durch "-f" ersetze, kommt überhaupt nichts dabei raus.
Was muss geändert werden, damit alle Verzeichnisse bzw. Dateien ausgegeben werden?
Danke für Tipps,
Luke
meine allererste Frage hier, ich hoffe, ich blamier mich nicht ;)
Also:
Es geht darum für eine größere Aufgabe den Inhalt eines Verzeichnises zu sortieren. (Nach Name, Verzeichnis oder Datei, usw...).
Ich wollte zum Einarbeiten mal einfach alle Verzeichnisse, die in einem bestimmtem Verzeichnis vorkommen ausgeben lassen.
Deshalb habe ich Folgendes geschrieben:
Code: (dl
)
1
2
3
4
5
6
7
8
9
#!/usr/bin/perl -w
$directory = "/home/luke";
opendir(DIR,$directory) or die "Can't open $directory: $!";
foreach (readdir DIR)
{
print "$_\n" if -d;
}
closedir(DIR);
Die Ausgabe beschränkt sich aber auf
.
..
also nur die ersten beiden Verzeichnisse.
Wenn ich "-d" durch "-f" ersetze, kommt überhaupt nichts dabei raus.
Was muss geändert werden, damit alle Verzeichnisse bzw. Dateien ausgegeben werden?
Danke für Tipps,
Luke