Re: How do I recursively process files through directories


more useful options
	PerlMonks

Re: How do I recursively process files through directories

by xbmy (Friar)

on Dec 04, 2009 at 19:35 UTC ( [id://811147]=note: print w/replies, xml )

Need Help??

in reply to How do I recursively process files through directories

Another way to recurse a directory and print the files you want to get,the following is the code.

  use   strict;   
  use   warnings;   
  sub   ransack   
  {   
  #dir,\@files   
  my   $dir=shift;   
  my   $files=shift;   
  my   @array=glob("$dir\\*");   
  foreach   my   $item   (@array)   {   
            if(-d   $item)   {   
                    ransack($item,$files);  
            }   
                 else   {   
                     $files->[@$files]=$item;   
                 }   
  }   
  }   
    my  ($array, @array);   
  ransack("path of your directory",\@array);   #path of your directory
  foreach  $array (@array)   
  {   
      if ($array=~/txt|csv/) {    #match your file format
  print ("$array\n");   
    }
  }
[download]

Enjoy!