I'm, every now and then, missing a "tree" command at places where I have to work.
And every now and then I "reinvent the wheel".
To put an end to this, I decided to present my current version here.
I hope it's useful to others and maybe I'll get some constructive feedback?
Update: Added AppleFritter's suggestion of hiding hidden files
#!/bin/env perl
use strict;
use warnings;
use Getopt::Long qw(:config no_ignore_case);
use Pod::Usage;
my (
$showall, # show hidden files
$showfiles, # show also files
$showlinks, # show also a symlink's target
);
help() unless GetOptions(
a => \$showall,
l => \$showlinks,
f => \$showfiles,
'h|help' => \&help,
'm|man' => \&man,
);
sub help { pod2usage(-verbose=>1); }
sub man { pod2usage(-verbose=>2); }
my $indent = ' ';
my $indir = '--';
foreach my $path (@ARGV ? @ARGV : '.') {
print $path,"\n";
traverse($path, '');
}
sub traverse {
my ($path, $depth) = @_;
# Open the directory
opendir my $dh, $path or die "Couldn't read $path: $!\n";
# Get all directory content - leaving out files unless asked for
my(@content) = grep {
not /^\.\.?$/
and
( $showfiles or not -f "$path/$_" )
and
( $showall or /^[^.]/ )
} readdir $dh;
closedir $dh;
# How many eitems are in the directory?
my $count= scalar @content;
# Prepare the standard indent
my $i= $depth . '|' . $indent;
# Print all the elements
foreach my $sub (@content) {
my $p= "$path/$sub";
# Prepare the last indent
$i= $depth . ' ' . $indent unless --$count;
print $depth, ($count ? '|' : '\\'), $indir , $sub;
# Is it a link?
if ( -l $p ) {
# Shall they be shown as such
if ($showlinks) {
print " -> ", readlink $p;
}
print "\n";
next;
}
print "\n";
# Done unless it's a directory
next unless -d $p;
traverse($p, $i);
}
return;
}
=head1 NAME
tree - A script to show a "graphical" representation of a directory st
+ructure
=head1 SYNOPSIS
tree [options] [path...]
=head1 DESCRIPTION
tree will show a "graphical" representation of a directory structure,
+including
all files (when B<-f> specified) and link targets (when B<-l> specifie
+d).
=head1 OPTIONS
=over 4
=item B<-f>
Show also files.
=item B<-l>
Shhow also link targets.
=item B<-h>
=item B<--help>
show a short help page.
=item B<-m>
=item B<--man>
Show the man-page.
=back
=head1 AUTHOR
Skeeve of perlmonks.org (perlmonks DOT org DOT Skeeve at XoXy dot net)
Including ideas of Apple Fritter, a fellow Perl monk
=cut
s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e
