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

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. http://www.serverwatch.com/tutorials/article.php/10825_1128811_1

    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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (4)
As of 2020-05-25 08:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If programming languages were movie genres, Perl would be:















    Results (144 votes). Check out past polls.

    Notices?