Shell Programming and Scripting

/foo/.target
/bar/buz/.target
/foo/bar/.target

/foo/.target
/bar/buz/.target

perl -MFile::Find -le'
  find { 
    wanted => sub {
      $File::Find::prune = 1 and return 
        if  @dirs{$File::Find::dir =~ m|(.*)/[^/]*$|};
      print $File::Find::name and $dirs{$File::Find::dir} = 1
        if $_ eq ".indexMe";
	  }
	}, shift	
  ' .

#!/bin/python

import os
import sys

rootnode = sys.argv[1]
fifo = [rootnode]

while fifo:
    file = fifo.pop(0)
    print(file)
    if os.path.isdir(file):
        fifo.extend(os.path.join(file,x) for x in os.listdir(file))