Reading Files Across Directories and Sub Directories

koti688 has asked for the wisdom of the Perl Monks concerning the following question:

I have a directory named "X" which has many sub directories "Y","Z","W" and many files about 20 files. and these sub directories also contain some more sub directories and files extra

check the Attached screen shot .What i need is , i want to read all the files that exists in directories , subdirectories and need to display .
i tried until 2 loops , but unable to complete the logic well.

This is my code

print "Enter The Directory Path";
$dir = <STDIN>;
chomp($dir);
opendir(DIR, $dir) || die "Unable to open the directory";
@contents=readdir(DIR);
foreach $listitem ( @contents )
{
  if ( -d $listitem )
  {
    opendir(DIR,$listitem)
    @c2=readdir(DIR);
    foreach  $l2(@c2) {
      if (-d $l2) {
       print $l2;
       print " It's a directory!\n";
      }
      else
      {
       print $l2;
         print " It's a file!\n";
      }
    }
    }
    print $listitem;
  print " It's a directory!\n";
  }
  else
  {
  print $listitem;
    print " It's a file!\n";
  }
}
close(DIR);
[download]

Can you please tell me how to proceed to read into an array or variable and display all the files across Directories and Subdirectories .

Comment on Reading Files Across Directories and Sub Directories Download Code

Replies are listed 'Best First'.
Re: Reading Files Across Directories and Sub Directories by dHarry (Abbot) on Dec 02, 2008 at 11:07 UTC
I use File::Find for that;-)	[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.
Re: Reading Files Across Directories and Sub Directories by cdarke (Prior) on Dec 02, 2008 at 12:13 UTC
When those esteemed monks reply as they do you should take note. There is always more than one way to do it, although there is not always a good reason. If you really must reinvent the File::Find wheel: use strict; use warnings; sub search_dir { my ($dir) = @_; my $dh; if ( !opendir ($dh, $dir)) { warn "Unable to open $dir: $!\n"; return; } # Two dummy reads for . & .. readdir ($dh); readdir ($dh); while (my $file = readdir ($dh) ) { my $path = "$dir/$file"; # / should work on UNIX & Win32 if ( -d $path ) { print "Directory $path found\n"; search_dir ($path); } else { print "File $path found\n"; } } closedir ($dh); } ########################################################## print "Enter The Directory Path"; my $dir = <STDIN>; chomp($dir); search_dir ($dir); [download]	[reply] [d/l]
Re^2: Reading Files Across Directories and Sub Directories by Fletch (Bishop) on Dec 02, 2008 at 17:41 UTC
Probably better to explicitly ignore "." and ".." than to blithely do two dummy reads; I'm not aware of anything that mandates that those are the first results returned by a `readdir` (then again I don't know of any offhand where it isn't either, just it seems more portable to ignore them on the off chance and increase your portability (on the third hand, it's entirely possible that said system would have not-cwd-or-parent entries which are named "." and ".." that you might not want to ignore . . . :)). </nitpick> The cake is a lie. The cake is a lie. The cake is a lie.	[reply]
Re^3: Reading Files Across Directories and Sub Directories by ikegami (Patriarch) on Dec 03, 2008 at 07:38 UTC
Root directories don't have "." and ".." in Windows, for example	[reply]
Re^2: Reading Files Across Directories and Sub Directories by koti688 (Sexton) on Dec 03, 2008 at 07:24 UTC
Thanks Cdarke, really helped a lot	[reply]
Re^2: Reading Files Across Directories and Sub Directories by Anonymous Monk on Apr 26, 2017 at 13:40 UTC
This one resulted in all kinds of trouble, like infinite loops :D This works like a charm on the other hand. sub search_dir { my ($dir) = @_; print "Entered search_dir sub, working with directory => $dir \n"; my $dh; # handle if ( !opendir ($dh, $dir)) { warn "Unable to open $dir: $!\n"; return; } my @FILES = grep { $_ ne '.' && $_ ne '..' } readdir($dh); foreach my $file (@FILES) { my $path = "$dir/$file"; if ( -d $path ) { print "Directory $path found\n"; search_dir ($path); } else { print "File $path found\n"; } } closedir ($dh); } # END of search_dir sub ############## Output: ... File /csvfiles/2015/12/22.csv found Directory /csvfiles/2015/10 found Entered search_dir sub, working with directory => /csvfiles/2015/10 File /csvfiles/2015/10/16.csv found File /csvfiles/2015/10/22.csv found Directory /csvfiles/2015/11 found Entered search_dir sub, working with directory => /csvfiles/2015/11 File /csvfiles/2015/11/16.csv found File /csvfiles/2015/11/11.csv found ... [download]	[reply] [d/l]
Re: Reading Files Across Directories and Sub Directories by vrk (Chaplain) on Apr 26, 2017 at 14:58 UTC
How about... `system('find', $dir)`. (Only half serious.)	[reply] [d/l]


P is for Practical
	PerlMonks