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

ASDS
 2007-04-18 00:52
#75898 #75898
User since
2007-01-29
115 Artikel
BenutzerIn
[default_avatar]
ich hab es jetzt versucht umzulegen sprich versucht
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
sub newtree {
.....  

    for my $zzahl (@$ref_liste1){
        #    my $refvalue = $ref_wurzel;
        if ($knoten) 
            { while (1) {
               
 if($zzahl < $$knoten{'zahl'}) { #Beginn des Vergleichs
               
 if(defined($$knoten{'linksweg'})) 
               
     {
               
     $knoten = $$knoten{'linksweg'}; 
               
     }
               
 else {
               
     $knoten->{'linksweg'} = knot($zzahl);
               
     $knoten = $ref_wurzel; 
               
     last; #Ende
um zulegen versucht auf set_l bin aber nicht weit gekommen... bin aber daran gescheitert... genauso hab ich versucht rechts umzulegen
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
                        }            
               
 }    
               
 #wenns Links nicht mehr weiter geht, geh rechts weiter
    
               
 if ($zzahl >= $$knoten{'zahl'}) {
                              if(defined($knoten->{'rechtsweg'}))
                            
  {
               
         $knoten =$$knoten{'rechtsweg'};
                         }
               
 else     { 
               
       $$knoten{'rechtsweg'} = knot($zzahl);
               
       $knoten = $ref_wurzel;
               
           last;

das normale set wäre dann der teil nicht
Code: (dl )
1
2
3
4
                 $ref_wurzel= knot($zzahl);
             $knoten = $ref_wurzel}}}
return $ref_wurzel;
}


ACHTUNG, ich hab mir meinen alten Code reingestellt, nicht den neuen, weil ich den jetzt nicht abgespeichert habe.

View full thread eine Frage zu objektorientertem Perl