eine Frage zu objektorientertem Perl - #75922 (Allgemeines zu Perl)

ASDS

2007-04-18 12:23

User since
2007-01-29
115 Artikel
BenutzerIn
[default_avatar]

oder hätt ich schreiben sollen

Code: (dl )

my $knoten = self;

lol, wahrscheinlich, oder?

Code: (dl )

sub ausgabe {
   my $self = shift;
   my $knoten = $self;
   
    if (defined($knoten->{'linksweg'})) 
    {
    ausgabe($self, $knoten->{'linksweg'});
    }
    print "$knoten->{'zahl'}";
    # print "$self->{'wurzel'}->{'zahl'}\n";

    if(defined($knoten->{'rechtsweg'})) 
    {
    ausgabe($knoten->{'rechtsweg'});
    }
}

hm so mag ers auch nicht..\n\n