27 lines
403 B
Plaintext
27 lines
403 B
Plaintext
|
|
|
|
###
|
|
### dir_walk_simple
|
|
###
|
|
|
|
## Chapter 1 section 5
|
|
|
|
sub dir_walk {
|
|
my ($top, $code) = @_;
|
|
my $DIR;
|
|
|
|
$code->($top);
|
|
|
|
if (-d $top) {
|
|
my $file;
|
|
unless (opendir $DIR, $top) {
|
|
warn "Couldn't open directory $top: $!; skipping.\n";
|
|
return;
|
|
}
|
|
while ($file = readdir $DIR) {
|
|
next if $file eq '.' || $file eq '..';
|
|
dir_walk("$top/$file", $code);
|
|
}
|
|
}
|
|
}
|