Is it posible to use wild card to get list of directory in File::Find perl module?

Question

I want to list the directory path which contains the required directory.

For example:

                                 /usr1
                                    |
                                    |
                -----------------------------------------   
                |                                       |
            /local1                                     /local2
                |                                       |
              dir1                                      dir1

I want to find the directory path where dir1 is present using wild card *.

From linux command line I can do this to get the result.

find /usr1/local* -name dir1 -type d

then it will shows

/usr1/local1/dir1
/usr1/local2/dir1

The same way how can I do with File::Find perl module.

I don't want to use system or `` to get it done.

sorry for the structure. – veerabhadra Jul 21 '16 at 13:09 — veerabhadra, Jul 21 '16 at 13:09
Think you should read the documentation of the modul – Jens Jul 21 '16 at 13:12 — Jens, Jul 21 '16 at 13:12

ikegami · Answer 1 · 2016-07-21T13:34:16.890

7

The equivalent of

find /usr1/local* ...

is

find(..., glob("/usr1/local*"))

so the whole is

use File::Basename qw( basename );
use File::Find     qw( find );

my $wanted = sub {
   say if basename($_) eq "dir1" && -d $_;
};

find({ wanted => $wanted, no_chdir => 1 }, glob("/usr1/local*"));

Personally, I prefer File::Find::Rule.

use File::Find::Rule qw( );

say
   for
      File::Find::Rule
         ->name('dir1')
         ->directory
         ->in(glob("/usr1/local*"));

edited Jul 21 '16 at 13:34

answered Jul 21 '16 at 13:14

ikegami

367,544
15
269
518

Won't `find` complain when `glob` returns files as well as directories? – simbabque Jul 21 '16 at 13:14
@simbabque, No, neither `find` complains. – ikegami Jul 21 '16 at 13:20
`find(..., grep{-d}glob("/usr1/local*"))` – shawnhcorey Jul 21 '16 at 13:20
@shawnhcorey, That would not be equivalent. – ikegami Jul 21 '16 at 13:21

Is it posible to use wild card to get list of directory in File::Find perl module?

1 Answers1