•Re: Producing 2 lists from a grep call

[merlyn]

Applying the KISS principle:

my @dirs; my @files;
for (readdir DIR) {
  next if $_ eq "." or $_ eq "..";
  if (-d "$base/$_") {
    push @dirs, $_;
  } else {
    push @files, $_;
  }
}

Don't try to cooerce everything into a grep.

-- Randal L. Schwartz, Perl hacker

[Anonymous Monk]

Run that code on /dev and it will get seriously wrong results.

A file isn't just anything that is not a directory.