#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

print Dumper walk('./rdw01_testsuit');
exit;

sub walk {
  my $here = {};
  chdir shift;  
  $here->{$_} = (-d $_) ? walk($_) : '' for (<*>);
  chdir '..';
  return $here;
}

#!/usr/bin/perl
#-#############################################
    
    use strict;
    use warnings;
    use Data::Dumper;

    my $root_dir = 'AbsoluterPfadZumVerzeichnis';
    
    print "Content-type: text/plain\n\n";
    print Dumper get_tree(\$root_dir);  
    
    print "\n\nRuntime: ", ((times())[0] + (times())[1]), " Sec.";

#-#############################################
# Sub: Create a Tree of Directories and Files
#-#############################################
sub get_tree {
    my ($root, $dir) = @_;
    my ($path, $tree);
    local $_;
    
    $$root =~ s/\\/\//g;
    
    $dir ? ($path = "$$dir/$$root") : ($path = $$root);
    
    chdir $$root;
    $tree->{$_} = -d($_) ? get_tree(\$_, \$path) : $path foreach <*>;
    chdir '..';
    
    return $tree;
}

#-#############################################

#!/usr/bin/perl

use strict;

print "ackermann($ARGV[0], $ARGV[1])\n";

print ackermann($ARGV[0], $ARGV[1]);

sub ackermann
{
    my ($x, $y) = @_;

    my @stack = ();
    while((defined $x and $x > 0) ||
          ((scalar @stack) != 0))
    {
        if($x == 0) { $x = pop @stack, $y++; }
        elsif($y == 0) { $y = 1, $x--; }
        else { $y--, push @stack, ($x-1); }
    }

    return ($y + 1);
}