SuperD’s Blog

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

找了好久….:P

Tags: perl shell script

This entry was posted on Wednesday, May 28th, 2008 at 1:49 am and is filed under computer. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.