perl ascii - tree

From: <http://www.perlmonks.org/?node_id=452201>
Usage: perl tree.pl
This will give output similar to the *nix tree(1) program.

#!/usr/bin/perl -w
use strict;
                     my
                    ($p,
                   $s,$d);
                  grep { #
                 /-.?s/&&##
                $s++; /-.?d/
               &&$d++;}@ARGV;
              (($p = $ARGV[-1]
             || ".") !~ /^-/)||
            ($p=".");print"$p\n";
           d($p,0,0);my$kr; sub d{
          my($p,$x,$v)=@_;opendir(D,
         $p)or warn"Can't read $p:$!"
        ;my@d;map {my($k,$r,$y,$l)=(#
       "$p/$_", " ",($_ eq $d[-1]),'');
      print map {($_ ? "|":" ") ." "x3} 
     (split(//,unpack("b*", $v)))[0..($x
    - 1)];if(-l$k){$l = readlink($k);;$r=
   ' -> '.(-e$l?$l:"($l)");-l$k;}print $y?
  '`':'|',"-- ",$s ?sprintf("[%9d] ",-s _):
 '',$_,$r,"\n";if(!-l _&&-d _){vec($v,$x,1)=
!$y;d($k,$x+1,$v);};}(@d=sort grep{(-d"$p/$_"
                  ||!$d)&&
                  !/^\./}#
                  readdir#
                  D);}#DMO


-- 
Mark Hill