Thread eine Frage zu objektorientertem Perl (149 answers)
Opened by ASDS at 2007-04-10 15:14

ASDS
 2007-04-18 01:48
#75903 #75903
User since
2007-01-29
115 Artikel
BenutzerIn
[default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
sub set_left {
   my $self = shift;

   my $val= shift;

       
   if (ref_self->{'zahl'}) {
       $self->{'linksweg'}-> append{'val'};
   } else {
       $self->{'linksweg'} = $self->neu($val);
   }
}


und die Neu Methode dazu ist:
Code: (dl )
1
2
3
4
5
6
7
8
sub neu {
   my $class = shift;
   my @liste = @_; 
   my $ref_wurzel = newtree(\@liste);
   my $self = { val => 'zahl', l => 'linksweg', r => 'rechtsweg'};
   bless $self, ref($class) || $class;
   return $self;
}


Stimmt das jetzt, aber sag mal... wie kommt er denn jetzt tatsächlich zu diesen
Code: (dl )
1
2
3
sub knot { return ( {     'zahl' => shift,
            'linksweg' => undef,
            'rechtsweg' => undef } );
werten?

View full thread eine Frage zu objektorientertem Perl