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

ASDS

2007-04-12 17:34

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

Danke Ronnie ,

Code: (dl )

1
2

   my $class = shift;
   my $self  = {};

ist dann auch nicht möglich? Schon oder, so steht ja glaub ich auch in der Perl Doc

bezüglich der Hinzufüge Methode hab ich jetzt mal was probiert.

Code: (dl )

###############
#Hinzufügen weiterer Äste
###############
sub hinzufuegen {
  my $self = shift;
  my @newList = my @liste2;
  if (defined($self->{ref_wurzel})){ 
    my $list = $self->{@Liste2};
    foreach my $neueZweige (@Liste2)
    { push(@$list, $neueZweige); };
    $self->{ref_wurzel} = newtree ($list);  
   
  } 
}

Code: (dl )

my $ref_liste1 = shift;
my $zahl = undef; 

my $ref_wurzel = knot($zahl);

    for $zahl (@$ref_liste1){
    my $refvalue = $ref_wurzel;

Aber es funkt trotzdem nicht.