japhy — Thu, 24 Feb 2000 02:28:00 +0000

Although File::Find would work perfectly in this case, I offer my own solution. It is a recursive approach:

code:

@dirs = ();
populate($start);

sub populate {
  my $dir = shift;
  push @dirs, $dir;
  local (*DIR,$_);
  opendir DIR, $dir or warn("can't open $dir: $!"), return;
  while (defined($_ = readdir DIR)) {
    populate("$dir/$_") if !/^\.\.?$/ and -d "$dir/$_";
  }
  closedir DIR;
}
[/code]

------------------
-- 
MIDN 4/C PINYAN, NROTCURPI, US Naval Reserve

roBofh — Tue, 22 Feb 2000 19:56:00 +0000

I prefer the unix way, 'find / -type d > directories'.

ROB — Tue, 22 Feb 2000 18:12:00 +0000

ok, heres my final code if anyone is interested, works like a charm.

#####################################

@dirs[0] = 'c:/';

open(OUTFILE, ">data.txt");

foreach(@dirs)
{ opendir(DIR, $_);
@temp = readdir(DIR);
foreach $file(@temp)
{ $file = $_ . $file . '/';
if(-d $file && $file !~ /\.\/$/)
{ push(@dirs, $file) if -d $file;
print OUTFILE "$file\n";
}
}
close(DIR);
}

close(OUTFILE);

##########################################

thanks for all the help!

ROB — Tue, 22 Feb 2000 05:48:00 +0000

ok, got it, readdir returns the file name, not the file path thats why the filetests always returned false.

ROB — Tue, 22 Feb 2000 05:42:00 +0000

ok, one of my problems is the filetest operator is not working correctly.

@dirs = 'c:/';

foreach(@dirs)
{ opendir(DIR, $_);
@temp = readdir(DIR);
foreach $file(@temp)
{ push(@dirs, $file) if -d $file; }
close(DIR);
}

# push(@dirs, $file) if -d $file always returns false
# do file test operators now work on windows systems? if i change it to push(@dirs, $file) it works, but gives me all files and not just directories
push(@dirs, $file) if -e $file; should give me everything too, but gives me nothing.