Re: Read only Files in a Directory

#### Need to keep this code unchanged opendir DIR, "Whatever/path"; @files=grep { !/^\.+$/ } readdir(DIR); closedir DIR;
[download]

Your comment is wrong, you definitely need to change that code.

#### Need to keep this code unchanged
opendir DIR, 'Whatever/path' or die "Cannot open 'Whatever/path' $!";
my @files = map "Whatever/path/$_" grep !/\A\.\.?\z/, readdir DIR;
closedir DIR;
[download]

Comment on Re: Read only Files in a Directory Select or Download Code

Replies are listed 'Best First'.
Re^2: Read only Files in a Directory by johngg (Canon) on Aug 01, 2006 at 23:12 UTC
my @files = map "Whatever/path/$_" grep !/\A\.\.?\z/, readdir DIR; I might be wrong but don't you need a comma in `map EXPR, list`. If so, that line should be `my @files = map "Whatever/path/$_", grep !/\A\.\.?\z/, readdir DIR;` [download] Cheers, JohnGG	[reply] [d/l] [select]
Re^3: Read only Files in a Directory by jwkrahn (Abbot) on Aug 02, 2006 at 00:20 UTC
Oops, thanks for fixing that. `:-)`	[reply] [d/l]
Re^3: Read only Files in a Directory by Anonymous Monk on Apr 06, 2007 at 01:23 UTC
It worked for me too. Thanks. Just changed the "Whatever/path/$_" as "$_" Thanks	[reply]