 |
|
 |
| |
Developer on focus
Anton Zamov is a dipl. engineer with more than 6 years of active professional
experience and many awards ...
read more>>
|
|
 |
 |
 |
|
|
|
|
| |
|
How do I recurse through the files in a directory tree?
|
# here's the File::Find way
use File::Find;
find(sub { print "$File::Find::name\\n" }, @ARGV);
# here's the do-it-yourself way
sub do_file {
my ($path, $name) = @_;
print "$path/$name\\n";
return unless -d("$path/$name");
local *DIRH;
opendir DIRH, "$path/$name"
or warn("couldn't open $path/$name: $!"), return;
my @files = grep { $_ ne '.' and $_ ne '..' } readdir DIRH;
closedir DIRH;
for (@files) {
do_file("$path/$name", $_);
}
}
for (@ARGV) {
do_file(".", $_);
}
|
About the author of this programming example or tutorial:
Anton Zamov is a software engineer with more than6 years
of active experience in web and software development and design.
Anton Zamov has extensive experience and broad knowledgebase
in C# and JAVA programming and has created a lot of
running e-commerce systems, portals and content management
systems using PHP and other web development technologies.
For more information about Anton Zamov, you may visit the personal web site of
Anton Zamov.
|
|
|
|
|
|
|
|
