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

ASDS

2007-04-18 10:21

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

*bettel* *bettel* *bettel* bitte Leute helft mir. Ich hab die ganze Nacht kaum geschlafen, weil ich das sogerne AUCH an meinem Programm schaffen würde. Ich hab mich - weil ich eh nicht schlafen konnte - gleich heute morgen wieder hingestetzt und sogar einen Teil der bekannten Fehlermeldung wegbekommen. Jetzt steht da nur noch:
Use of uninitialized value in String at Baum.pm line 84, <STDIN>line 10.
Meiner Meinung nach hab ich aber keinen String und wenn ich das hinkrieg.. glaubt ihr nicht, dass ich das Programm nach und formen kann?

Code: (dl )

sub ausgabe {
   my $self = shift;
   my $knoten = undef;
   
    if (defined($knoten->{'linksweg'})) 
    {
        ausgabe($self, $knoten->{'linksweg'});
    }

    print "$knoten->{'zahl'}";

line 84 ist in diese Ausschnitt
line 10 ist vermutlich dieser hier...

Code: (dl )

sub knot {
my $knoten = {        'zahl' => shift,
            'linksweg' => undef,
            'rechtsweg' => undef };
return $knoten;
    }