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.

Replies are listed 'Best First'.
Re^2: "Deep recursion" error
by poj (Abbot) 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($_)
    }
  }
}

    [download]
    poj
[reply]
[d/l]
      Thank you poj, that works perfectly.
[reply]

In Section Seekers of Perl Wisdom