Read only Files in a Directory

Newbee21369 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Read only Files in a Directory by Mr. Muskrat (Canon) on Aug 01, 2006 at 20:26 UTC
Your file test does not include the complete path to the files so perl is looking in the current working directory for them.	[reply]
Re: Read only Files in a Directory by swampyankee (Parson) on Aug 01, 2006 at 21:21 UTC
I've used something akin to: `$base = '/usr/local/bin/'; @glob = grep { -f ($base . $_)} @glob;` [download] to filter out everything which isn't a file (I did it on Windows, but `-f` is portable). glob is quite handy for this, although characters meaningful to csh must be escaped. corrected really dumb spelling error. emc Outside of a dog, a book is man's best friend. Inside of a dog it's too dark to read. Groucho Marx	[reply] [d/l]
Re^2: Read only Files in a Directory by Hue-Bond (Priest) on Aug 01, 2006 at 22:01 UTC
characters meaningful to csh must be escaped Not in my experience (on a Unix, though): ## create some files with funny names map { open my $fd, '>', chr $_ or die "open: $!"; close $fd; } 33..45,58..63,91..96,123..126 $ perl -le 'print glob q[+]' + $ perl -le 'print glob q[`]' ` $ perl -le 'print glob q[;]' ; [download] The only gotchas are `` and `?`: $ perl -le 'print glob q[?]' !"#$%&'()+,-:;<=>?[\]^_`{\|}~ $ perl -le 'print glob q[\?]' ? $ perl -le 'print glob q[]' !"#$%&'()+,-:;<=>?[\]^_`{\|}~ $ perl -le 'print glob q[\]' [download] -- David Serrano	[reply] [d/l] [select]
Re^3: Read only Files in a Directory by swampyankee (Parson) on Aug 02, 2006 at 14:24 UTC
Not in my experience (on a Unix, though): It is my experience on Windows: it gets confused about blanks in directory names, possibly because it's implemented differently in the Windows port than in the various *ixen. I don't know whether using `opendir` and `readdir` is better than `glob`, but I usually find `glob` more convenient. emc Outside of a dog, a book is man's best friend. Inside of a dog it's too dark to read. Groucho Marx	[reply]
Re: Read only Files in a Directory by jwkrahn (Abbot) on Aug 01, 2006 at 21:54 UTC
`#### 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]	[reply] [d/l] [select]
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]
Re: Read only Files in a Directory by zentara (Cardinal) on Aug 01, 2006 at 20:31 UTC
Your program is working for me on linux. I'm not really a human, but I play one on earth. Cogito ergo sum a bum	[reply]
Re^2: Read only Files in a Directory by zentara (Cardinal) on Aug 01, 2006 at 20:38 UTC
After reading Mr. Muskrat's fine explanation, mine works when `opendir DIR, ".";` [download] I'm not really a human, but I play one on earth. Cogito ergo sum a bum	[reply] [d/l]