Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: "Deep recursion" error

by cspctec (Sexton)
on Jun 28, 2013 at 17:53 UTC ( #1041302=note: print w/ replies, xml ) Need Help??


in reply to "Deep recursion" error

Thanks for the suggestions guys. The file globbing thing I was doing doesn't seem to be working out. I feel like I'm close, but I just can't get the script to descend into directories. I really wanted to use recursion to do this, for practice mainly.

I started over using opendir and readdir. Maybe file globbing just doesn't work properly with recursion, or maybe its just me.


Comment on Re: "Deep recursion" error
Re^2: "Deep recursion" error
by poj (Priest) on Jun 28, 2013 at 19:07 UTC

    Yes, you are close ..

    #!perl use strict; use Cwd; # pwd has line ending, use this my $dir = cwd(); # protect against endless loop just in case ! my $limit = 10_000; # call with parameter start($dir); sub start { my $dir = shift; # add / to descend foreach (<$dir/*>) { die "exceeded limit" if --$limit < 0; print " $_ is file\n" if (-f $_); if (-d $_) { print "$_ is a dir\n"; start($_) } } }
    poj
      Thank you poj, that works perfectly.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (8)
As of 2014-10-02 07:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (49 votes), past polls