Re: special directory entries

e.g.

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

or:

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

Comment on Re: special directory entries Select or Download Code

Replies are listed 'Best First'.
Re: Re: special directory entries by demerphq (Chancellor) on Dec 04, 2001 at 20:17 UTC
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?	[reply]
Re: Re: Re: special directory entries by strat (Canon) on Dec 04, 2001 at 21:50 UTC
@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	[reply]
Re: Re: special directory entries by herveus (Prior) on Dec 04, 2001 at 20:58 UTC
Howdy! Even clearer would be: `my @files = grep { $_ ne '.' && $_ ne '..' } readdir(DIR);` [download] yours, Michael Credit to Dominus' Program Repair Shop...	[reply] [d/l]