O'Reilly logo

Programmieren mit Perl by Jon Orwant, Tom Christiansen, Larry Wall

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

File::Find

use File::Find;

# Alle Verzeichnisse unterhalb des aktuellen ausgeben.
find sub { print "$File::Find::name\n" if -d }, ".";

# Gesamtgröße aller Dateien in den angegebenen Verzeichnissen bestimmen.
@dirs = @ARGV ? @ARGV : ('.');
my $sum = 0;
find sub { $sum += -s }, @dirs;
print "@dirs belegen $sum Bytes\n";# Standardverhalten so ändern, daß Symlinks verfolgt
# und Unterverzeichnisse zuerst besucht werden.
find { wanted => \&myfunc, follow => 1, bydepth => 1 }, ".";

Die find-Funktion des File::Find-Moduls geht Verzeichnisse rekursiv durch. Das erste Argument muß eine Referenz auf eine Funktion sein, und bei allen nachfolgenden Argumenten muß es sich um Verzeichnisse handeln. Die Funktion wird auf jeden Dateinamen innerhalb der aufgeführten ...

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required