unless (opendir(DIR, "c:/temp")){
  die ("Error in opendir: $!\n");
}
my @files = grep { $_ !~ /^\.{1,2}$/ } readdir(DIR);
closedir(DIR);
[download]

use File::DosGlob qw(glob);
my @files = glob("c:/temp/*.*");
[download]

It is interesting to note that opendir/readdir is signifigantly faster than glob. But then again its less readable.

Yves / DeMerphq
--
Have you registered your Name Space?

@Yves: yes, that's true; I just prefer using File::DosGlob because it might turn the code a little bit clearer, and in addition to that allows you to ask only for files matching a pattern. But sometimes performance really is important. Best regards, Martin aka Strat

Howdy!

Even clearer would be:

my @files = grep { $_ ne '.' && $_ ne '..' } readdir(DIR);
[download]

yours,
Michael

Credit to Dominus' Program Repair Shop...

Hmm. You posted the same question yesterday. Did you try any of the answers that were suggested there?

I tend to think not, because you would have found that the grep function is built in to Perl on all platforms. It doesn't depend on the Unix program of the same name. (There are Win32 ports of the grep program, BTW.)