get_files in directory

JoeS

I'm trying to write a simple script that will scan a directory (solaris) and return the list of files, however nothing seems to happen. Thanks for any advice.

 

my $dir = "/default/main/mfs/WORKAREA/mfsemc/files/documents/college/";
my @files;
get_files($dir, \@files);
foreach my $file (@files) {
print "$file\n";
if (-f $file) {
print -s $file."\n";
}
}

sub get_files {
 my ($dir, $list) = shift;
 opendir(DIR, $dir) || die "[opendir] '$dir' ($!)";
 my @entries = readdir(DIR);
 closedir(DIR);
 my @subdirs;
 foreach my $e (@entries) {
  $e = "$dir/$e";
  if (-d $e) {
   push(@subdirs, $e);
  }
  else {
   push(@{$list}, $e);
  }
 }
get_files($_, $list) foreach (@subdirs);
}

nipper

I use something like this

use File::Find;
my $dir = "/default/main/mfs/WORKAREA/mfsemc/files/documents/college/";
my @files
find(\&wanted, $dir);
foreach (@files) {
do whatever}

sub wanted {-f && push(@files, $File::Find::name);}