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

ASDS

2007-04-12 15:13

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

Eine andere Frage...

Code: (dl )

my $ref_liste1 = shift;
my $zahl = shift(@$ref_liste1); #Wurzel wird mit erster Zahl der Liste1 erstellt
my $ref_wurzel = knot($zahl);

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

    if ($zahl)

Hier sag ich ihm dass er mit der Liste 1 arbeiten muss -> die er bei mir ja als STDIN bekommt.
nur das is ja alles fad... lustig wäre es, wenn ich noch äste dazufügen könnte.

ich müsst erm dann im .pl was ich ja auch noch machen muss, ne Abfrage schreiben: Ob die Zahlen die defaultweise im Programm eben Liste 2 noch an den Baum angefügt werden sollen.

Aber wie kann ich jetzt eine Methode anfertigen, die Hinzufügen heißt und eben an den bestehenden Baum die Äste zufügt:

Code: (dl )

1
2
3

sub hinzufuegen {
  my $self = shift;
  my @newList = my @liste2;

erkennt er hier, dass er die Liste zwei von oben nehmen soll?