Perl free example : How do I recurse through the files in a directory tree?

home page latest news web development curriculum vitae scripts contact me

• Curriculum Vitae (CV)
• Major web solutions
• Web design projects
• Software solutions

• C# (Microsoft .NET)
• JAVA
• Dynamic HTML
• PHP & MySQL
• ASP.NET - C# & VB.NET
• Perl & CGI
• C | C++
• Vector Markup Language
• SMIL
• Assembler
• Databases
• Wap Development
• Web site promotion
• Web Marketing

How do I recurse through the files in a directory tree?

(Perl free example written by Anton Zamov.)

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::namen" }, @ARGV);

# here's the do-it-yourself way
sub do_file {
my ($path, $name) = @_;
print "$path/$namen";
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(".", $_);
}

Jobs Portal, poweful jobs board software

PHP Mall, multi vendors mall website software

Car Portal, php script for auto classifieds websites

NetArt Media, software products and services

Real Estate Portal, web software for real estate portals

Blog System, multi user blog hosting script

PHP Store, powerful e-commerce system written in PHP