Be seen. Boost your question’s priority for more expert views and faster solutions
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;
recurse("$base/$_") foreach grep { /[^.]/ && -d "$base/$_" } @dircontents;
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Open in new window