List Directory Tree

find * -type d | perl -F/ -ane’print 1..1?$_:”| “x@F.$/.”| “x$#F.”+-$F[-1]”‘

找了好久….:P