Displays directory tree easy way with only printable characters (unlike gnu tree)

treeperl.pl

#!/usr/bin/perl
# François Serman <[email protected]>
# 07 nov 2012
#
# Displays a treeview of a directory, very simply.
# If no parameters is given, takes PWD as base.

use strict;

our $prefix = shift || $ENV{PWD};

sub tree
{
    my ($base, $offset) = @_;
    foreach (<$base/*>) {
	my $file = $_;
	$file =~ s/$prefix\///;
	print '|';
	print '_' x $offset . ' ';
	print $file . (-d $_ ? '/' : '') . "\n";
	tree ($_, $offset+1) if (-d);
    }
}

print "$prefix/\n";
tree $prefix, 1;