Perl: Glob subdirectories recursively

Question

How do I recursively include subdirectories in an array using glob?

I currently have my @files = glob $PATH . '/*'; (where $PATH = ".") but this does not include subdirectories.

Re. *"Unfortunately, even though $WatchSubTree is set to 1, it cannot seem to monitor subdirectories."* This may just be a typo, but whether your `@files` array includes subdirectories has nothing to do with whether `Win32::ChangeNotify` is monitoring them. — ThisSuitIsBlackNot, Mar 18 '15 at 19:20
I realized afterwards that my question was _solely_ about the `@files` array and not about ChangeNotify. I have modified the question accordingly. — Bijan, Mar 18 '15 at 19:21

score 1 · Accepted Answer · edited May 23 '17 at 11:58

1

I found my answer from Here

I just changed @files to be my @files = File::Find::Rule->in($PATH);

edited May 23 '17 at 11:58

Community

answered Mar 18 '15 at 18:05

Bijan

score 1 · Answer 2 · answered Mar 18 '15 at 19:56

1

If you like to stick with standard modules you can use this code.

use strict;
use warnings;
use File::Find;

my @files;
find( { wanted => sub { push @files, $_ }, no_chdir => 1 }, $PATH );

answered Mar 18 '15 at 19:56

2 Answers2