Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

(dkubb) Re: (4) recurse directories and sub-directories (bad code warning)

by dkubb (Deacon)
on Oct 12, 2001 at 18:43 UTC ( [id://118489]=note: print w/replies, xml ) Need Help??


in reply to Re:x3 recurse directories and sub-directories (bad code warning)
in thread recurse directories and sub-directories

For the sake of defensive programming, and to be cross platform compatible, you could also use File::Spec::Functions to be safe.

File::Spec::Functions has two routines that will return the characters used to represent the current and upper directory for your specific operating system. While it may be true that most OS's use "." and ".." to represent the current directory and upper directory, it may not necessarily be garaunteed. If it was, I doubt these functions would have been put into the module in the first place. =)

Here's your example using File::Spec::Functions:

use File::Spec::Functions qw(curdir updir); #.. next if $file eq curdir or $file eq updir;

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others chanting in the Monastery: (9)
As of 2024-03-28 10:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found