Recursive

damann · Aug 2, 2000

Hello all, I'm trying to write a script that'll recursively print all the directories to the screen, then go inside those directories and do the same thing primarily, until it can't go any furthur.   This is what I have now, but his doesn't work at all, and as you can see it's not recursive, If I were to add another directory in at the very end where my opendir function ends, It would only print the directory but wouldn't list everything underneath it.  So can someone help direct me or redirect me to in the right direction... opendir (DIR, "$dirname&quot

or die "Can't open: $!\n"; @alldir = sort grep(!/^\.¦\.[aA-zZ]/, readdir (DIR)); closedir(DIR); foreach $dir(@alldir){      print "$dir";      opendir(SUB, "$dir&quot

or die "Can't open: $!\n";      @subdir = sort grep(!/^\./, readdir (SUB));      closedir(SUB);           foreach $sub(@subdir) {                print "$sub";           } }

goBoating · Aug 3, 2000

If you are on a UNIX box, the find command will give you a good list of all sub dirs and files. $cmd = 'find /some/path/  -name  "*" '; @files = system($cmd); foreach $file (@files) { print "$file\n"; } This will supply a list of all files and dirs found below /some/path/. 'hope this helps. <a href=mailto: > </a> <a href= > </a> keep the rudder amid ship and beware the odd typo

damann · Aug 3, 2000

Im not on a unix box.  Im on an NT machine.  So how do I go about doing htat now.

goBoating · Aug 3, 2000

There is a 'File::Recurse' module that does that.....from the ActiveState html version of the perl man pages..... quote -- The function takes two parameters a function reference and a directory. The function referenced by the first parameter should expect to take one parameter: the full path to the file currently being operated on.  This function is called once for every file and directory under the directory named by the second parameter. For example:         recurse(\&func, "/&quot

; would start at the top level of the filesystem and call ``func'' for every file and directory found (notincluding ``/''). --end quote See the perl manpages for more details... <a href=mailto: > </a> <a href= > </a> keep the rudder amid ship and beware the odd typo

Guest_imported · Aug 3, 2000

try this: sub recurse_dirs {   my ($dir,$level) = @_;   opendir(DIR, "$dir&quot

or die "Can't open: $!\n";   my @alldir=sort grep(!/^\.¦\.[aA-zZ]/,readdir(DIR));       closedir(DIR);   $str = "% $levels";   $dir = sprintf($str,$dir);   $level++;   foreach $dir (@alldir) {recurse_dirs($dir,$level);} } recurse_dirs($dirname,0); I'm not sure if that sprintf hack will work the way I want (print spaces before the directory in order to indent them correctly).  But, you at least get the idea of how to write a recursive subroutine. Sincerely, Tom Anderson CEO, Order amid Chaos, Inc. <A HREF="

http://www.oac-design.com"

TARGET="_new">

http://www.oac-design.com</A>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Recursive

damann

Technical User

goBoating

Programmer

damann

Technical User

goBoating

Programmer

Guest_imported

New member

Similar threads

Part and Inventory Search

Sponsor