Verzeichnisse lesen

dir.pl

#!/usr/local/bin/perl -w ($cmdname = $0) =~ s{.*/}{}; push(@ARGV, ".") unless @ARGV > 0; foreach $dir (@ARGV) { opendir(DIR, $dir) || die "$cmdname: unable to open $dir\n"; @filenames = (); while (defined($filename = readdir(DIR))) { next if $filename =~ /^\.\.?$/; push(@filenames, $filename); } closedir(DIR); print "$dir:\n"; foreach $filename (sort @filenames) { print "\t$filename\n"; } }

Dieses Skript eröffnet jedes angegebene Verzeichnis (bzw. das aktuelle, wenn keines genannt worden ist) und gibt die darin enthaltenen Dateinamen in alphabetischer Reihenfolge aus.

Verzeichnisverbindungen sind zwar keine Dateiverbindungen (im Sinne von Perl) -- sind in der Verwendung aber ähnlich.

Mit opendir kann ein Verzeichnis eröffnet werden, readdir liefert die darin enthaltenen Dateinamen in undefinierter Reihenfolge und closedir schließt eine Verzeichnisverbindung.

	Dieses Skript eröffnet jedes angegebene Verzeichnis (bzw. das aktuelle, wenn keines genannt worden ist) und gibt die darin enthaltenen Dateinamen in alphabetischer Reihenfolge aus.
	Verzeichnisverbindungen sind zwar keine Dateiverbindungen (im Sinne von Perl) -- sind in der Verwendung aber ähnlich.
	Mit `opendir` kann ein Verzeichnis eröffnet werden, `readdir` liefert die darin enthaltenen Dateinamen in undefinierter Reihenfolge und `closedir` schließt eine Verzeichnisverbindung.