#!/usr/bin/perl
use strict;
use warnings;
use File::Find; # Faulheit =)
use File::Spec; # Portabilit??t
use Getopt::Std; # standard
my %opts;
# -e: folge symlinks
# -d path: path anstelle .
# -i n: wieviele Leerzeichen zur Einr??ckung (default 2)
getopts('ed:i:', \%opts);

my $indent = defined $opts{i} ? $opts{i} : 2;

my $dir = defined $opts{d}? $opts{d} : ".";
{
	my %dirs;
	find( {wanted => sub {
		my $name = $File::Find::name;
		# Pfad in einzelne Directories splitten
		my @dirs = File::Spec->splitdir($name);
		shift @dirs; # das erste . verschwinden lassen
		# im falle eines verzeichnisses eine hashref, ansonsten
		# der leere string
		pushref(\%dirs, @dirs, -d $_ ? {} : "");
	}, follow => $opts{e}}, $dir);
	print_nice(\%dirs,0);
}
sub print_nice {
	my ($hash, $level) = @_;
	foreach my $key (sort keys %$hash) {
		print " " x ($level * $indent); # einr??ckung
		print $key;
		my $value = $hash->{$key};
		print "/" if ref $value;
		print $/;
		if (ref $value) {
			print_nice($value, $level + 1);
		}
	}
}
sub pushref {
	# gegeben eine reihe von strings, etwa A, B, C, werden
	# in einen hash eingef??gt: $dir->{A}->{B}->{C} = $value
	my $value = pop;
	my ($dir,@dirs) = @_;
	my $ref = \$dir;
	for (@dirs) {
		$ref = \$$ref->{$_};
	}
	$$ref = $value;
	$_[0] = $dir;
}

perl -MData::Dumper -e 'do{for(glob"$_*"){split m[/]and$.=\%.and
push@.,"$_/";$.=$.->{$_[$_]}||=$_==$#_?"":{}for
0..$#_;}}while($_=shift@.);&_;sub _{print Dumper\%.}'

#!/usr/bin/perl
#------------------------------------------------------------------------------
# program     : r d w 0 1 _ c r i a n . p l
#------------------------------------------------------------------------------
# author      : Christian Duehl
# created     : 2004-07-08
# last change : 2004-07-08
# task        : Solution to RDW #1
# parameter   : none
#------------------------------------------------------------------------------
use strict;
use warnings;

#------------------------------------------------------------------------------
# packages:
#------------------------------------------------------------------------------
use Cwd          qw//;
use Data::Dumper qw/Dumper/;

#------------------------------------------------------------------------------
# prototypes:
#------------------------------------------------------------------------------
sub rdir ($$);
sub pdir ($);

#------------------------------------------------------------------------------
# constants:
#------------------------------------------------------------------------------
use constant SEP => '/';

#------------------------------------------------------------------------------
# main:
#------------------------------------------------------------------------------
my %Dir;
rdir(Cwd::cwd(), \%Dir);
pdir(\%Dir);
exit;


sub rdir ($$) {
    #--------------------------------------------------------------------------
    # sub          : r d i r
    #--------------------------------------------------------------------------
    # author       : Christian Duehl
    # task         : Reads the working directory into the data structure.
    # parameters   : 1) starting directory
    #                2) structure (hash) to store the result
    # return value : the blessed new object
    #--------------------------------------------------------------------------
    # 0.0.1 - 2004-07-08 - CD - created
    #--------------------------------------------------------------------------

    my ($start, $dir) = @_;

    my $read;

    opendir($read, $start) or die "can't opendir '$start' : $!";
    while (my $entry = readdir($read)) {
        next if $entry eq '..' or $entry eq '.';
        if (-d $start . SEP . $entry) {
            my %tdir;
            rdir($start . SEP . $entry, \%tdir);
            $dir->{$entry} = { %tdir };
        }
        else {
            $dir->{$entry} = '';
        }
    }
    closedir($read) or warn "can't closedir '$start' : $!";
} # sub rdir


sub pdir ($) {
    #--------------------------------------------------------------------------
    # sub          : p d i r
    #--------------------------------------------------------------------------
    # author       : Christian Duehl
    # task         : Dump the given structure.
    # parameters   : 1) reference to the structure
    # return value : the blessed new object
    #--------------------------------------------------------------------------
    # 0.0.1 - 2004-07-08 - CD - created
    #--------------------------------------------------------------------------

    my ($dir) = @_;

    $Data::Dumper::Indent    = 3;
    $Data::Dumper::Varname   = 'dir';
    $Data::Dumper::Quotekeys = 0;
    $Data::Dumper::Sortkeys  = 1;
    
    print Dumper($dir);
} # sub pdir