find * -type d | perl -F/ -ane’print 1..1?$_:”| “x@F.$/.”| “x$#F.”+-$F[-1]”‘
找了好久….:P
Tags: perl shell script Posted in computer | 1 Comment »