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

ASDS
 2007-04-13 14:24
#75848 #75848
User since
2007-01-29
115 Artikel
BenutzerIn
[default_avatar]
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
26
27
28
29
    while (1) { 
############################
#Beginn des Vergleichs

if($zahl < $$refvalue{'zahl'}) {
if(defined($$refvalue{'linksweg'}))
{
$refvalue = $$refvalue{'linksweg'};
}
else {
$$refvalue{'linksweg'} = knot($zahl);
last; #Ende
}
}
#######
#wenns Links nicht mehr weiter geht, geh rechts weiter
else {
if(defined($$refvalue{'rechtsweg'}))
{
$refvalue = $$refvalue{'rechtsweg'};
}
}
else {
$$refvalue{'rechtsweg'} = knot($zahl);
last;
}
}
}
}

*motz* danke, aber bei einem else gehört keine Bedigung... und beim letzten schreit er mir wieder nach einem Synatxerror. Daweil.. is das ja genau das gleiche w.o nur mit rechtsweg eben.

View full thread eine Frage zu objektorientertem Perl