List Directory Tree
find * -type d | perl -F/ -ane’print 1..1?$_:”| “x@F.$/.”| “x$#F.”+-$F[-1]”‘ 找了好久….:P
perl