Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Unable to read files from a directory

by Marshall (Canon)
on May 14, 2009 at 03:29 UTC ( [id://763984]=note: print w/replies, xml ) Need Help??


in reply to Unable to read files from a directory

The readdir part looks good to me also.

I would add "use warnings", you can do this even on windows by #!/usr/bin/perl -w, or you can add a "use warnings;" statement.

Then I would get to basics to make sure that the permission denied is where you think that it is:

#!/usr/bin/perl -w opendir (DIR, "C:/Perl/bin/Anti") or die "Couldnt open directory: $!"; @files = readdir DIR; closedir (DIR);
The problem might be in opening the file for read, not in the directory read itself. See if that works, then
foreach $file (@files) { print "$file\n"; #just to make sure this looks right }
I would point out in the above that a Directory is a File! If there is a subdir underneath this DIR, then you will get those also! So you may need something like this:
@files = grep {"$path/$_" -D }readdir DIR;
update: it might be -D doesn't mean "not a directory" and that you need "not" the little d. Sorry I've forgotten right now.ok, -f is a lot easier!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://763984]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others contemplating the Monastery: (6)
As of 2024-03-29 12:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found