recurse-o-lister

[dann]

+ Quick hack, in boredom ( 5 )
   + Recursively lists files ( 7 )
      + and directories ( 5 )

use strict;t (($ARGV[0]?$
ARGV [0]:q-.-),0); sub t{
opendir(D,$_[0]);map{$ b=
"$_[0]/$_";print' 'x$_[1]
.(-d$b?q~*~:q:-:).qq# $_#
.(-l$b?q[ -> ].readlink($
b):qq##). qq+\n+;t ($b,$_
[1]+3 )if-d$ b&&-r$ b&& !
-l $ b ;} grep { /^[^\.]/
}readdir(D);closedir(D);}