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

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?

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

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (7)
As of 2015-11-26 00:57 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (695 votes), past polls