Traverse a directory

Traverse a directory and all it's child directories. Each file from each directory can be processed. Great for combining files or deleting files from multiple child directories.
sub traverse { local($dir) = shift; local($path); unless (opendir(DIR, $dir)) { warn "Can't open $dir\n"; closedir(DIR); return; } foreach (readdir(DIR)) { next if $_ eq '.' || $_ eq '..'; $path = "$dir\\$_"; if (-d $path) { # a directory @AllDirs[$i] = $path; ++$i; &traverse($path); } elsif (-f _) { # a plain file print "File $path\n"; } } closedir(DIR); } &traverse("C:\\backup1");

Copyright © 2002 Booshway Enterprises, Inc.
You have a royalty-free right to use, modify, reproduce and distribute the Sample Application Files (and/or any modified version) in any way you find useful, provided that you agree that The Booshway Enterprises, Inc. has no warranty, obligations or liability.