Farid Hajji: Perl - Einführung, Anwendungen, Referenz
2., aktualisierte und erweiterte Auflage
Addison-Wesley Longman, ISBN 3-8273-1535-2
subdirs.pl
#!/usr/local/bin/perl -w
# subdirs.pl -- Unterverzeichnisse (1. Ebene) anzeigen
$path = shift || "/usr/include"; # Aus @ARGV
opendir(DIR, $path) or die "can't opendir $path: $!\n";
while (defined ($fname = readdir(DIR))) {
# Tue etwas mit $path/$fname (UNIX Style)
# z.B.: Unterverzeichnisse anzeigen:
print "$fname\n" if -d "$path/$fname";
}
[Prev] [Up] [Relevant Chapter] [Next]
[Alte Quelle]
| Last modified: $Date: 2006/05/18 12:56:07 $ FH. Search :: Sitemap :: Disclaimer :: Copyright :: Privacy |
 |