Create a list of files (recursively)

[moroshko]

Hello experts !

What is the most efficient way to get a list of all file names (a full path) in a certain directory ?
This should work recursively and include only files (not directories).

Thanks in advance !

 

[travs69]

I suggest checking out

http://search.cpan.org/~rgarcia/perl-5.10.0/lib/File/Find.pm

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[PinkeyNBrain]

What OS are you using?
One possibility:

sub dir_scan {
   my($curr_path) = $_0 ;
   my($local_file) ;
   if (-f $curr_path) {
      # global var here
      $dir_list{'file'}{$curr_path) = 1 ;
   } elsif (-d $curr_path)
      $dir_list{'dir'}{$curr_path) = 1 ;
      if (opendir(DH, $curr_path))) {
         foreach $local_file (grep !/^\.\.?$/, readdir DH) {   
            &dir_scan($local_file);
         };
      } else {
         # Save off the usual $!, $? $@ error vars
         # here as appropriate.
         #$dir_list{'dir_err'}{$curr_path) = <err data>
      };
      # Personal pref - I like putting this out here vs.
      # under the 'if-true' - Mostly subjected to Win env
      # and sometimes this sort of thing makes the difference
      # between getting a call at 2am when something obscure
      # is locked up.
      closedir DH ;
   } else {
      # Ends up being an interesting way to investigate
      # your particular OS.
      $dir_list{'other'}{$curr_path) = 1 ;
   };
   return 1;
};

 

[PinkeyNBrain]

Pardon my lack of regard above: I should have noted that the code within the "grep ... readdir DH" statements should be accredited to the Camel book.

 

[PinkeyNBrain]

... sheesh found newbie error above:

         foreach $local_file (grep !/^\.\.?$/, readdir DH) {   
            &dir_scan("[b]$curr_path/[/b]$local_file");
         };