Arraymethoden für an ein übergeordnetes Objekt eingehängte Objekte (gelöst) (Allgemeines zu Perl)

[thread]18836[/thread]

Arraymethoden für an ein übergeordnetes Objekt eingehängte Objekte [gelöst]

Tags: perl5 OOP Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+16 replies
MarkusH

2014-01-07 15:16
User since
2012-04-08
161 Artikel
BenutzerIn
Hallo,

erstmal etwas Code:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

{ package A; my $self = { key_1 => value_1, key_2 => value_2, key_3 => [objects of B], key_n => 'value_n', }; sub lastIndex { my $self = shift; return $#{$self->{key_3}}; } } { package B; my $self = { key_1 => value_1, key_2 => value_2, key_n => 'value_n', }; sub isLast { my $self = shift; } } my $pkg_B_[4]->isLast;
Ich habe eine Datenstruktur, bei der ein Objekt A mehrere Objekte vom Typ B in einem Array gespeichert hat.
Wie kann ich abfragen, ob ein Objekt vom Typ B das letzte bzw. erste im Array ist? Auch ob es einen Vorgänger und Nachfolger gibt wäre interessant.

PS: Ein vernünftiger Titel fällt mir grad auch nicht ein, da Brett vorm Kopf!
$q =~ /(bb|[^b]{2})/
- +14 replies
- bianca
  
  2014-01-07 15:23
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Verstehe ich nicht. Um auf einen Wert im Array zuzugreifen brauchst du doch immer den Index. In welchem Fall muss man denn anders herum ermitteln, welcher Wert welchen Index hat, wenn man es nicht einfach durch iteriert?
  10 print "Hallo"
  20 goto 10
  - +13 replies
  - MarkusH
    
    2014-01-07 15:29
    
    User since
    2012-04-08
    161 Artikel
    BenutzerIn
    
    Package B hat keine Ahnung von der Datenstruktur in Package A.
    Oder doch?
    $q =~ /(bb|[^b]{2})/
    - Muffi
      
      2014-01-07 15:30
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Nein.
      1 + 1 = 10
    - +11 replies
    - bianca
      
      2014-01-07 15:37
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Nein aber wieso braucht es das? Macht man Packages nicht, damit die voneinander nichts wissen brauchen?
      10 print "Hallo"
      20 goto 10
      - +10 replies
      - MarkusH
        
        2014-01-07 15:46
        
        User since
        2012-04-08
        161 Artikel
        BenutzerIn
        
        Die Datenstruktur wird aus einer Datei erstellt.
        Abhängig von verschiedenen Kriterien - u. a. erstes oder letztes Element der Liste - werden weitere Attribute hinzugefügt.
        
        Nach intensivem googeln und schmökern in Literatur hab ich im Perlkochbuch das Rezept 13.13 gefunden.
        Demnach muß ich in jedem Objekt B zwei Felder hinzufügen, die eine Referenz auf das vorhergehende und das nachfolgende Objekt enthalten.
        $q =~ /(bb|[^b]{2})/
        
        bianca
        
        2014-01-07 15:48
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Tut mir leid, übersteigt meine Fähigkeiten und ich begreife es auch im Moment nicht. Habe das Buch auch leider nicht.
        Bin aber sehr gespannt, wie hier die Lösung ist.
        10 print "Hallo"
        20 goto 10
        
        +6 replies
        
        Muffi
        
        2014-01-07 15:50
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Magst du nicht genauer beschreiben um was es geht?
        Dein Vorhaben klingt sehr komisch.
        
        // edit: und da du immer wieder abwechselnd von Datenstruktur und Objekt sprichst: Du kennst den Unterschied?
        Last edited: 2014-01-07 15:52:21 +0100 (CET)
        1 + 1 = 10
        
        +5 replies
        
        MarkusH
        
        2014-01-07 16:12
        
        User since
        2012-04-08
        161 Artikel
        BenutzerIn
        
        2014-01-07T14:50:37 Muffi
        Magst du nicht genauer beschreiben um was es geht?
        Dein Vorhaben klingt sehr komisch.
        
        Was soll ich genauer beschreiben?
        Falls Du Dich auf das Rezept beziehst, dann kann man es hier auf Seite 568 nachlesen.
        
        2014-01-07T14:50:37 Muffi
        // edit: und da du immer wieder abwechselnd von Datenstruktur und Objekt sprichst: Du kennst den Unterschied?
        
        Ich hoffe es!
        $q =~ /(bb|[^b]{2})/
        
        +4 replies
        
        Muffi
        
        2014-01-08 08:32
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Was das Rezept macht kann ich mir schon vorstellen. Ich glaub irgendwie nur nicht, dass du auf dem richtigen Weg bist.
        Warum geht z.B. sowas nicht?
        
        Code (perl): (dl )
        
        if ($a->is_object_last($b))
        
        Und um da nicht noch zig mal nachfragen zu müssen "warum XYZ nicht" wärs halt evtl. leichter wenn man weiss was du vor hast.
        
        edit: Oder anders gesagt: man kriegt nach X Jahren Programmieren irgendwann ein Gespür für "komsiche" Lösungswege.
        Was ich an deinem z.B: komisch finde:
        - a verwaltet zwar scheinbar b, b muss aber wissen wo es innerhalb von a steckt. Wenn a schon b verwaltet, warum weiss es dann nicht auch wo sich b befindet? => komisch
        - sowas wie is_last() hört sich, wenn es von aussen benutzt wird nach implizitem Wissen an. Implizites Wissen heisst: Eigentlich will ich garnicht wissen, ob es an letzter Stelle ist, aber ich habe (meist undokumentiertes) Zusatzwissen und mit dem kann ich mir Zusammenreimen, dass der Letzte eine Spezialbedeutung hat. Fiktives Beispiel: Statt !$Person->hat_kinder() frage ich $Person->letzter_in_liste(), weil ich weiss, dass Kinder dahinter stehen würden. => komisch
        
        edit: ganz absurd wird dieses implizite Wissen dann noch, wenns zusätzlich noch kommentiert wird.
        
        Code (perl): (dl )
        
        if ($Person->letzter_in_liste()) { # hat keine Kinder
        
        Last edited: 2014-01-08 10:35:54 +0100 (CET)
        1 + 1 = 10
        
        +3 replies
        
        MarkusH
        
        2014-01-08 10:53
        
        User since
        2012-04-08
        161 Artikel
        BenutzerIn
        
        2014-01-08T07:32:58 Muffi
        Was das Rezept macht kann ich mir schon vorstellen. Ich glaub irgendwie nur nicht, dass du auf dem richtigen Weg bist.
        Warum geht z.B. sowas nicht?
        
        Code (perl): (dl )
        
        if ($a->is_object_last($b))
        
        Und um da nicht noch zig mal nachfragen zu müssen "warum XYZ nicht" wärs halt evtl. leichter wenn man weiss was du vor hast.
        
        edit: Oder anders gesagt: man kriegt nach X Jahren Programmieren irgendwann ein Gespür für "komsiche" Lösungswege.
        [...]
        
        Ok! Ich werde dann im Hauptprogramm auf Instanzmethoden von B nicht mit $b->methode zugreifen, sondern mit $a->{container_der_b}[index_von_b]->methode.
        Dann weiß ich immer um welches B es sich handelt.
        
        Für mich als Freizeitprogrammierer (max. 5 Wochen/Jahr) ist es unglaublich schwierig festzustellen, ob der Lösungsweg komisch ist oder nicht - Hauptsache es funktioniert. An diesem Projekt beispielsweise sitze ich schon seit 2009 dran, und ich hoffe, dass ich zum Ende der Woche vielleicht die Klassen endlich mal fertig bekomme. Ab nächster Woche ruft wieder die Arbeit und ich bin mir sicher, dass ich wieder mindestens die Hälfte vergessen habe, wenn ich das nächste mal wieder Zeit dafür finde.
        Deshalb bin ich auch jedem dankbar hier in diesem Forum, der mir schnell und unkompliziert auf die Sprünge hilft.
        $q =~ /(bb|[^b]{2})/
        
        +2 replies
        
        hlubenow
        
        2014-01-08 11:09
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        2014-01-08T09:53:40 MarkusH
        Für mich als Freizeitprogrammierer (max. 5 Wochen/Jahr) ist es unglaublich schwierig festzustellen, ob der Lösungsweg komisch ist oder nicht - Hauptsache es funktioniert.
        
        Wenn Du Dir nicht mehr Wochen pro Jahr dafür Zeit nehmen willst, wäre es vielleicht besser zu akzeptieren, daß man so kaum in die Tiefen der Sprache mit den Einzelheiten zu Packages, Objekten und "Array of Array" einsteigen kann und daß es dann wahrscheinlich besser wäre, sich auf die einfacheren Datentypen (Skalare, Arrays, Hashes) zu beschränken. Damit kann man auch schon eine Menge machen, und diese komplexeren Datentypen gab es in Perl vor Version 5 ja auch noch gar nicht.
        
        MarkusH
        
        2014-01-08 13:45
        
        User since
        2012-04-08
        161 Artikel
        BenutzerIn
        
        2014-01-08T10:09:06 hlubenow
        [...]
        Wenn Du Dir nicht mehr Wochen pro Jahr dafür Zeit nehmen willst, [...]
        
        $zutreffender =~ s/willst/kannst/g;
        
        Dashalb frag ich auch in diesem Forum ab und an auch mal. Es kostet mich immer wieder Überwindung, da ich kein Schreib-Freak bin.
        $q =~ /(bb|[^b]{2})/
        
        +2 replies
        
        clms
        
        2014-01-07 19:15
        
        User since
        2010-08-29
        373 Artikel
        BenutzerIn
        
        2014-01-07T14:46:18 MarkusH
        Demnach muß ich in jedem Objekt B zwei Felder hinzufügen, die eine Referenz auf das vorhergehende und das nachfolgende Objekt enthalten.
        
        Mit solchen verketteten Listen - insbesondere in beide Richtungen verkettete Listen wie hier - würde ich sehr vorsichtig sein, weil Du damit die Garbage-Collection aushebelst.
        Das kann unproblematisch sein, weil Dein Programm ohnehin nur wenige "B" anlegt oder diese ohnehin bis zum Laufzeitende speichern muss, kann aber auch zu einem explodierenden Speicherbedarf führen.
        
        Ansonsten ist es mit den beiden Referenzen oder Links nicht getan - Du brauchst auch noch Funktionen, die das Einhängen und Austragen von "B"s in die jeweilige Liste kapseln und so dafür sorgen, dass die Referenzen immer auf dem aktuellen Stand sind.
        
        Du schreibst, dass die Datenstruktur aus einer Datei erstellt wird.
        Wenn Du eine Funktion hast, die die Datei einmal einliest und dann die Datenstrukturen der Typen A und B anlegt, weiß diese Funktion doch, welches die erste Struktur von typ B ist und welche die letzte. Dann könnte diese Funktion entsprechende Flags setzen. Oder wird das Array in "A" anschließend noch geändert (von wem?), so dass die Info, welches "B" erstes und welches letztes ist, jeweils dynamisch verwaltet werden muss?
        
        MarkusH
        
        2014-01-07 20:37
        
        User since
        2012-04-08
        161 Artikel
        BenutzerIn
        
        2014-01-07T18:15:08 clms
        2014-01-07T14:46:18 MarkusH
        Demnach muß ich in jedem Objekt B zwei Felder hinzufügen, die eine Referenz auf das vorhergehende und das nachfolgende Objekt enthalten.
        
        Mit solchen verketteten Listen - insbesondere in beide Richtungen verkettete Listen wie hier - würde ich sehr vorsichtig sein, weil Du damit die Garbage-Collection aushebelst.
        Das kann unproblematisch sein, weil Dein Programm ohnehin nur wenige "B" anlegt oder diese ohnehin bis zum Laufzeitende speichern muss, kann aber auch zu einem explodierenden Speicherbedarf führen.
        
        In der Regel ist die Anzahl der "B"s <50. Aber es kann immer Ausnahmen geben. Gespeichert wird bis Programmende, oder das übergeordnete A wird gelöscht.
        
        Quote
        Ansonsten ist es mit den beiden Referenzen oder Links nicht getan - Du brauchst auch noch Funktionen, die das Einhängen und Austragen von "B"s in die jeweilige Liste kapseln und so dafür sorgen, dass die Referenzen immer auf dem aktuellen Stand sind.
        
        Ich hab das jetzt in die Einlesefunktion der Datei mit integriert. Zusätzliche Bs einhängen, Bs löschen oder deren Reihenfolge ändern ist nicht erlaubt.
        
        Quote
        Du schreibst, dass die Datenstruktur aus einer Datei erstellt wird.
        Wenn Du eine Funktion hast, die die Datei einmal einliest und dann die Datenstrukturen der Typen A und B anlegt, weiß diese Funktion doch, welches die erste Struktur von typ B ist und welche die letzte. Dann könnte diese Funktion entsprechende Flags setzen. Oder wird das Array in "A" anschließend noch geändert (von wem?), so dass die Info, welches "B" erstes und welches letztes ist, jeweils dynamisch verwaltet werden muss?
        
        Ich hab zusätzlich noch die Aufgabe, dass das Hauptprogramm, das die Klasse A einbindet, diverse Attribute der Bs kontrollieren und bei Bedarf ändern muß. Z.B. wenn die Position (XYZABC) eines Bs mit der Position des vorhergehenden oder nachfolgenden Bs identisch ist. Das kann ich so relativ leicht realisieren. Mal schaun, wo mich das hinführt.
        $q =~ /(bb|[^b]{2})/
- rosti
  
  2014-01-08 12:03
  
  User since
  2011-03-19
  3492 Artikel
  BenutzerIn
  
  Quote
  Ich habe eine Datenstruktur, bei der ein Objekt A mehrere Objekte vom Typ B in einem Array gespeichert hat.
  Wie kann ich abfragen, ob ein Objekt vom Typ B das letzte bzw. erste im Array ist? Auch ob es einen Vorgänger und Nachfolger gibt wäre interessant.
  
  Den Objekten der Klasse B würde ich die entsprechenden Attribute verpassen. Immer dann, wenn eine Instanz der Klasse A (das Ding was die Objekte der Klasse B speichert) ein neues Objekt der Klasse B zugewiesen bekommt, wird ein Index neu aufgebaut.
  
  Dieser Index gehört zur Instanz der Klasse A. Ob die Einträge letztendlich auf ein Array oder einen Hash zeigen, ist egal. Wichtig ist der Index, wenn Abfragen gemacht werden sollen, wird der Index befragt. So würde ich das machen.
  
  --Rosti
  
  PS: Wofür brauchst Du eine Liste mit Objekten? Evntl. gibt es andere Lösungen.
  Last edited: 2014-01-08 12:18:51 +0100 (CET)

View all threads created 2014-01-07 15:16.