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

ASDS

2007-04-18 16:17

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

oh gott... ich hab einerseits mein .pl verworfen und es so gemacht wie in dem oft schon zitiertem link..mal auf deppen sicher ohne großartig viel drum herum nämlich:

Code: (dl )

my $tree = Baum1->neu(3,2,4,1,5); 
$tree->ausgabe();
$tree->append(7,6,8);
$tree->ausgabe();

und dann hab ich

Code: (dl )

sub neu {
  my $this = shift;
  my $class = ref($this) || $this;
  my @liste = @_; ........

hier mich gespielt und die Ausgabe bissi verändert...
in dem ich nochmal ne sub ausgabe geschrieben hab. Alsoo ich hab einmal:

Code: (dl )

sub AusgabeBaum {
  if (defined(my $knoten = shift)){
    if (defined($knoten->{'linksweg'})) {
      AusgabeBaum($knoten->{'linksweg'});
    }
    print $knoten->{'zahl'};
    print " ";
    if (defined($knoten->{'rechtsweg'})) {
      AusgabeBaum($knoten->{'rechtsweg'});
    }
  }
}

und dann noch:

Code: (dl )

sub ausgabe {
  my $self = shift;
  AusgabeBaum($self->{'val'});
}

Ich freu mich voll....... und dazu hab ich stunden gebraucht um das zu behirnen...