Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re^2: Recursion and Such

by djantzen (Priest)
on Jan 31, 2005 at 19:19 UTC ( #426699=note: print w/replies, xml ) Need Help??

in reply to Re: Recursion and Such
in thread Recursion and Such

Yup, $depth is probably getting set on the first invocation and never getting updated un subsequent invocations. See this article

"The dead do not recognize context" -- Kai, Lexx

Replies are listed 'Best First'.
Re^3: Recursion and Such
by Grundle (Scribe) on Jan 31, 2005 at 20:32 UTC
    Yes, this is exactly the problem! The article you sent me to got me on the right path, but I thought it was too brief, or at least it didn't offer enough examples for me to figure out what was happen. You are right, however, the root of my problem was exactly that.

    The following I thought was a very good article on the same thing, although their code is a little cryptic in some places.

    Finally The following is the re-written fileDir sub-routine that works just fine (although I think it looks a little ugly to me).

    sub findDir{ my ($dir, $min, $max) = @_; $min_depth = \$min; $max_depth = \$max; #print "findDir: $dir min: $min_depth max: $max_depth\n"; $count_files = *count{0}; find( { preprocess => \&preprocess, wanted => \&wanted, }, $dir); #print "count: $count_files\n"; sub preprocess { my $depth = $File::Find::dir =~ tr[/][]; #print "depth: $depth\n"; return @_ if $depth < $$max_depth; print "depth: $depth max: $$max_depth\n"; if ($depth == $$max_depth){ print "greping\n"; return grep { -df } @_; } return; } sub wanted { my $depth = $File::Find::dir =~ tr[/][]; return if $depth < $$min_depth; if(!($_ =~ m/^\./)){ $$count_files++; } } return $$count_files; }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://426699]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (6)
As of 2021-01-26 16:15 GMT
Find Nodes?
    Voting Booth?