Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re^5: File::Find finding . and ..

by davorg (Chancellor)
on Jul 15, 2009 at 16:14 UTC ( #780386=note: print w/ replies, xml ) Need Help??


in reply to Re^4: File::Find finding . and ..
in thread File::Find finding . and ..

Why are you using opendir/readdir to get the list of files in $DIR? Why not just pass $DIR to find and let that function find all of the files?

I don't see how you're getting paths that include '/../'. I don't think that readdir will return them. Perhaps I'm missing some obscure symlink usage.

I'm also surprised that you're not getting a 'Can't "next" outside a loop block' or 'Exiting subroutine via next' error as your next if line should surely be return if.

If it's really necessary (and I don't think it is) then you could add another line that matches the problematic paths.

return if m[/\.\./];
--

See the Copyright notice on my home node.

Perl training courses


Comment on Re^5: File::Find finding . and ..
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (13)
As of 2014-09-30 13:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (369 votes), past polls