murphy+2008-11-26 20:50:22--

Ich finde ja eher, der Perlinterpreter sollte mal etwas über Gültigkeitsbereiche lernen. Forwarddeklarationen wie in C, um gegenseitig rekursive Subroutinen schreiben zu können, sind voll uncool ;-)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

use strict;
use warnings;

sub a {
    my $x = shift;
    if ( $x < 0 ) {
        print "done\n";
    } else {
        b($x - 2);
    }
}

sub b {
    return a(shift() + 1);
}

a(5);