Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re^3: How to Get the Last Subdirectories

by rovf (Priest)
on Mar 12, 2010 at 09:04 UTC ( #828243=note: print w/ replies, xml ) Need Help??


in reply to Re^2: How to Get the Last Subdirectories
in thread How to Get the Last Subdirectories

You are basically interested in those directories in your tree which have no subdirectories; so the following algorithm should work:
  1. Initially create an empty hash %leaf_directories
  2. Whenever File::Find drops you into a directory $d, do the following:
    1. Remove the parent directory of $d from the hash, i.e. if $d contains the full path, do a delete $leaf_directories{dirname($d)}. Of course this will fail occasionally (because there is no corresponding entry), but we ignore this.
    2. Add $d to your hash, i.e. $leaf_directories{$d}=1
In the end, keys $leaf_directories should be the list of the directories without subdirectories.


-- 
Ronald Fischer <ynnor@mm.st>


Comment on Re^3: How to Get the Last Subdirectories
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (6)
As of 2014-12-28 09:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (179 votes), past polls