Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

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 <>

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

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2015-11-29 14:04 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 (751 votes), past polls