Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.
Solved
make an array of a directory tree/files paths in perl
Posted on 2009-04-05
I am looking (without installing extra packages) to get an array to have a directory structure of a bunch of folders then go through each folder and list the files, (and also know the directory its in)
Take the following file paths (starting from 'My Photos' for instance):
/home/tim/my photos/
/home/tim/my photos/journey/1.jpg
/home/tim/my photos/journey/2.jpg
/home/tim/my photos/journey/3.jpg
/home/tim/my photos/birthday/1.jpg
/home/tim/my photos/birthday/2.jpg
/home/tim/my photos/birthday/3.jpg
I would like to find the code that makes me an array of the directorys (recursively) in a given path - in the above example I would like @dirs = ("/home/tim/my photos/journey/" , "/home/tim/my photos/birthday/")
Then I want to get the full file paths into another array... so @files = ("/home/tim/my photos/journey/1.jpg","/ho
I know this should be easy but I can't find a straightforward approach, I don't wish to have it rely on other packages as it has to run from different web servers which won't let me install extra packages from CPAN etc.
Take the following file paths (starting from 'My Photos' for instance):
/home/tim/my photos/
/home/tim/my photos/journey/1.jpg
/home/tim/my photos/journey/2.jpg
/home/tim/my photos/journey/3.jpg
/home/tim/my photos/birthday/1.jpg
/home/tim/my photos/birthday/2.jpg
/home/tim/my photos/birthday/3.jpg
I would like to find the code that makes me an array of the directorys (recursively) in a given path - in the above example I would like @dirs = ("/home/tim/my photos/journey/" , "/home/tim/my photos/birthday/")
Then I want to get the full file paths into another array... so @files = ("/home/tim/my photos/journey/1.jpg","/ho
I know this should be easy but I can't find a straightforward approach, I don't wish to have it rely on other packages as it has to run from different web servers which won't let me install extra packages from CPAN etc.
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2
2
5 Comments
Hope this gets you startred.
#!/usr/bin/perl
use strict;
use File::Find;
my @files;
find( \&handleFile, '/home' );
# Print out sorted list if desired...
#print sort @files;
sub handleFile() {
if(-d) {
# Print each file and store into list as we go
print "$File::Find::name\n";
push @files, $File::Find::name;
}
}
This works without any extra package. It is rather straight-forward, anyway.
my $root = '/home/tim/my photos';
my @dirs;
my @jpgs;
sub recurse {
my $base = shift;
push @dirs, $base;
opendir(my $DIR, $base) || die "can't opendir $base: $!";
my @dircontents = readdir $DIR;
closedir $DIR;
push @jpgs, grep { /\.je?pg$/i && -f $_ } map {"$base/$_"} @dircontents;
recurse("$base/$_") foreach grep { /[^.]/ && -d "$base/$_" } @dircontents;
}
recurse $root;
Both answers worked for me, but the first answer by mrjoltcola was easier to implement into my own program. However the second one doesn't use any other packages at all! luckily File::find seems to be installed by default :)
I don't quite understand whats going on the last part of the recurse sub (at row 12) on the second example as that seems outside what I know, do you have the time to elaborate on what it means for me ?
cheers!!
I don't quite understand whats going on the last part of the recurse sub (at row 12) on the second example as that seems outside what I know, do you have the time to elaborate on what it means for me ?
cheers!!
recurse("$base/$_") foreach grep { /[^.]/ && -d "$base/$_" } @dircontents;
/[^.]/
Match only strings with at least one character that's not a dot. This is to prevent an infinite loop into directory '.'
-d "$base/$_"
Returns true if "$base/$_" is a directory, other wise false.
grep { /[^.]/ && -d "$base/$_" } @dircontents
Filter all entries in the current directory that are directores themselves, but not '.' and '..'
foreach grep { /[^.]/ && -d "$base/$_" } @dircontents
Iterate over all those filtered directories...
recurse("$base/$_") foreach grep { /[^.]/ && -d "$base/$_" } @dircontents;
...and iteratively call the recurse function with the filtered directories as arguments.
Match only strings with at least one character that's not a dot. This is to prevent an infinite loop into directory '.'
-d "$base/$_"
Returns true if "$base/$_" is a directory, other wise false.
grep { /[^.]/ && -d "$base/$_" } @dircontents
Filter all entries in the current directory that are directores themselves, but not '.' and '..'
foreach grep { /[^.]/ && -d "$base/$_" } @dircontents
Iterate over all those filtered directories...
recurse("$base/$_") foreach grep { /[^.]/ && -d "$base/$_" } @dircontents;
...and iteratively call the recurse function with the filtered directories as arguments.
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx..
MOST IMPORTANT:
Use Unix file format while saving Your script.
otherwise it will have ^M s or smth likely weird in the EOL,
Then DO NOT use m…
A year or so back I was asked to have a play with MongoDB; within half an hour I had downloaded (http://www.mongodb.org/downloads), installed and started the daemon, and had a console window open.
After an hour or two of playing at the command …
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions.
Consider email address RFCs:
Look at HTML5 form input element (with type=email) regex pattern:
T…
Suggested Courses
Course of the Month15 days, 8 hours left to enroll
647 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.