http://qs1969.pair.com?node_id=1074145


in reply to Iterate Recursively Through Directories

FWIW if the directory structure is always DIR$N/001.$EXT, it has a fixed depth and you don't even need File::Find(::Rule), a simple glob is enough:

use strict;
use warnings;
my %seen;

while (my $file = glob 'Dir*/*') {
     (my $base = $file) =~ s/\.\w+$//;
     next if $seen{$base};
     # work with $file here
}

[download]
Perl 6 - the future is here, just unevenly distributed

Replies are listed 'Best First'.
Re^2: Iterate Recursively Through Directories
by tbone654 (Beadle) on Feb 11, 2014 at 20:18 UTC

    I don't know if this helps for anything, this doesn't Iterate Recursively as shown, but I use readdir in the following code to create an array $dots of filenames from a directory, excluding any "." prefix in unix. Then I can grep out anything I don't want to operate on, etc. Or in this case put the contents of all the files into a single array $foo, then grep out or split out whatever I'm looking for. I think it can be modified to do something useful without a module.

      $sd = "../data/data_forthis";
  opendir( DIR, $sd) || die;
  while( ($filename = readdir(DIR))){
    next if "$sd\/$filename" =~ /\/\./;
    push @dots, "$sd\/$filename";
  }  ## end of while
  @dots = sort @dots;
  closedir(DIR);

  for(my $a=0;$a<@dots;$a++){
    open (FILE, $dots[$a]);
    push @foo, <FILE>;
    if ($a+1 eq @dots) {
      close FILE;
      open (FILE, $dots[$a]);
      push @foo2, <FILE>;
      } ## end of if
    close FILE;
  }  ## end of for
### At this point @foo has everything and $foo2 has just the last file
+ in the directory...

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom