Finding directories at a variable depth

uday_sagar has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Finding directories at a variable depth by daxim (Curate) on Aug 01, 2012 at 12:23 UTC
See dir_list in Path::Class::Dir. `use Path::Class::Rule qw(); my $i = Path::Class::Rule->new->dir->iter; while (my $d = $i->()) { say $d if 3 == $d->dir_list; }` [download]	[reply] [d/l]
Re: Finding directories at a variable depth by RichardK (Parson) on Aug 01, 2012 at 11:56 UTC
You could just use glob, if you construct the right match string `my @files = glob('///*');` [download] That will give you all the files like `/a/b/c /a/b/d /a/x/a ...` [download]	[reply] [d/l] [select]
Re: Finding directories at a variable depth by nemesdani (Friar) on Aug 01, 2012 at 12:03 UTC
You could use a preprocess sub. Exactly this case is covered in: Beginners guide to File::Find I'm too lazy to be proud of being impatient.	[reply] [d/l]
Re: Finding directories at a variable depth by Ratazong (Monsignor) on Aug 01, 2012 at 11:36 UTC
You could have a look at `$File::Find::dir`, which gives the directory where `$_` is found; there you can get the depth by counting the number of parts after doing a split using the seperator (`/`). HTH, Rata	[reply] [d/l] [select]
Re: Finding directories at a variable depth by zentara (Cardinal) on Aug 01, 2012 at 14:46 UTC
Here is a File::Find script which counts slashes to determine depth. Modify the depth and slash according to your needs. #!/usr/bin/perl # linux only, use appropriate \ for MSWindows use warnings; use strict; use File::Find; use File::Spec; if (@ARGV < 2){print "Usage: $0 dir depth\n";exit} my ($path, $depth)= @ARGV; my $abs_path = File::Spec->rel2abs($path); #in case you enter . for di +r my $m = ($abs_path) =~ tr!/!!; #count slashes in top path find (\&found,$abs_path); exit; sub found{ my $n = ($File::Find::name) =~ tr!/!!; #count slashes in file return $File::Find::prune = 1 if $n > ($m + $depth); return unless -d; # do stuff here. #print "$_\n"; #name only print "$File::Find::name\n"; #name with full path } [download] I'm not really a human, but I play one on earth. Old Perl Programmer Haiku ................... flash japh	[reply] [d/l]
Re^2: Finding directories at a variable depth by uday_sagar (Scribe) on Aug 02, 2012 at 09:31 UTC
This is just what I wanted zentara! Thanks.	[reply]
Re^3: Finding directories at a variable depth by uday_sagar (Scribe) on Aug 02, 2012 at 09:54 UTC
And if i wanted only directories of level 2 and not of level 1?	[reply]
Re^4: Finding directories at a variable depth by zentara (Cardinal) on Aug 02, 2012 at 11:13 UTC
Re: Finding directories at a variable depth by uday_sagar (Scribe) on Aug 02, 2012 at 13:18 UTC
I have played with your code for some time and got one similar to that posted above! #!/usr/bin/perl # linux only, use appropriate \ for MSWindows use warnings; use File::Find; use File::Spec; use Cwd; my $total_count; my $pwd = getcwd; my $count = ($pwd =~ tr/\///); if (@ARGV < 2){print "Usage: $0 dir depth\n";exit} my ($path, $depth)= @ARGV; my $abs_path = File::Spec->rel2abs($path); #in case you enter . for di +r #count slashes in top path my $m = ($abs_path) =~ tr!/!!; find (\&found,$abs_path); print "\n\nTOTAL: $total_count\n"; exit; sub found { my $n = ($File::Find::name) =~ tr!/!!; #count slashes in file return $File::Find::prune = 1 if $n > ($m + $depth); return unless -d; # do stuff here. my $count_here = ($File::Find::name =~ tr/\///); if ($count_here eq $count+2) { print "$_\n"; $total_count++; #name only } } [download]	[reply] [d/l]