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

ASDS

2007-04-17 17:06

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

gut.. ich versuchs nochmal... also....

Quote
sub new {
my $Objekt = shift;
my $Referenz = {};
bless($Referenz,$Objekt);
return($Referenz);
}

ich hab nichts anders in meinen Augen gemacht als ich:

Code: (dl )

sub Neu {
   my $class = shift;
   my $self  = {};
   bless( $self, $class );

   my @liste = @_;
   $self->{'ref_wurzel'} = newtree (\@liste);
   return $self;
}

geschrieben habe.

und hier:

Quote
my $html = HTMLprint -> new();

das hab ich doch hier umgesetzt:

Code: (dl )

sub BaumNeu { 
   for(0..9){
            ....            }    
    print "Sie haben folgende Zahlen eingegeben: (@liste1) \n";

    $ebaum =baum->Neu(@liste1);

}

oder etwa nicht? ich erkenn daraus nicht was anders seins ollte.. okay, ich hab jetzt das @erstellebaum in $ebaum umgewandelt.. aber trotzdem geht es nicht.. er geht mir bis zueingabe der zahlen, sagt mir auch wenn ich keine Zahl eingebe... aber er gibt mir weder die Liste aus, noch erkennt er die sub Neu, die ich doch eindeutig erstellt hab.\n\n