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

ASDS

2007-04-18 16:59

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

Code: (dl )

sub append {
   my $self = shift;
   my @vals = @_;
   my $n = shift @vals;
   while (  my $ref_wurzel )  {
   
    if ($n < $self->{val}) {
         $self->newtree($n) 
         }
       elsif ($n >= $self->{val}) { 
          $self->newtree($n) 
          } 
}          
}

so mit diesem Code gibt er mir: 1 2 3 4 5 1 2 3 4 5
somit bring ich die

Code: (dl )

 append(7,6,8);

nicht rein...
müsste doch passen.. ich sag erm mittels...my @vals = @_; dass er die Werte übernehmen soll und leg sie dann mit n um, oder nicht?
BAh, ich bin schon ur blind...