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

GwenDragon

2007-04-12 15:45

User since
2005-01-17
14533 Artikel
Admin1

Code: (dl )

sub ausgabe {
    my $self = shift;
    my $refvalue = shift;

    if (defined( $self->{'ref_wurzel'}->{'linksweg'} ) ) {
    ausgabe( $self->{'ref_wurzel'}->{'linksweg'} )
    }

    print $self->{'ref_wurzel'}->{'zahl'},"\n";

    if( defined( $self->{'ref_wurzel'}->{'rechtsweg'} ) ) {
    ausgabe( $self->{'ref_wurzel'}->{'rechtsweg'} )
    }
}
ausgabe($ref_wurzel);

Was gefällt dir nicht?

So ganz weiß ich auch nicht, ob du wirklich Objektorieniertes Perl verwendest.

So zum Beispiel müsste es eigentlich sein:
my $bintree = new MeinModul::BinTree;
$bintree->ausgabe( $bintree->wurzel() );

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel