myfind.pl

sub myFind {
  my @dirs = @_;
  my @resultFiles = ();
  my @resultDirs = ();

  @dirs = grep { if (-f $_) { push(@resultFiles,$_) }; -d $_ } @dirs;

  while(scalar(@dirs) > 0) {
    my $dir = shift(@dirs);
    push(@resultDirs,$dir);

    opendir(my $dh,$dir);
    for my $item (readdir($dh)) {
      #print $item . "\n";
      if ($item ne '.' && $item ne '..') {
        $item = $dir . '/' . $item;
        push(@resultFiles,$item) if ( -f $item );
        push(@dirs,$item) if ( -d $item );
        #print $item;
      }
    }
    closedir($dh);
  }
  return (\@resultDirs,\@resultFiles);
}

sub myFindFiles {
  my ($resultDirs,$resultFiles) = myFind @_;
  return @$resultFiles;
}

sub myFindDirectories {
  my ($resultDirs,$resultFiles) = myFind @_;
  return @$resultDirs;
}