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

ASDS
 2007-04-12 14:48
#75829 #75829
User since
2007-01-29
115 Artikel
BenutzerIn
[default_avatar]
okay, d.h in meine Ausgabe muss ich auch noch ein Objekt einauen, oder?
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
sub ausgabe {

my $refvalue = shift;
my $self = shift;

if(defined($$refvalue{'linksweg'})) {
ausgabe($$refvalue{'linksweg'})
}

print "$$refvalue{'zahl'}\n";

if(defined($$refvalue{'rechtsweg'})) {
ausgabe($$refvalue{'rechtsweg'})
}
}
ausgabe($ref_wurzel);


funzt das mit $self-> (($$refvalue}

View full thread eine Frage zu objektorientertem Perl