Mehrfachvererbung Perl5 native (solved) (Allgemeines zu Perl)

[thread]21503[/thread]

Mehrfachvererbung Perl5 native [solved]

Tags: perl5 Similar Threads

Readers: 11

Articles: hide open all | hide show old branches

+17 replies
rosti

2023-11-04 10:40

User since
2011-03-19
3481 articles
BenutzerIn

Moin,

für mich Neuland, die Tage erstmals praktisch angewandt. Eine Frage dabei ist: Was passiert wenn bei use base qw(Foo Bar); Foo und Bar dieselben gleichnamigen Methoden definieren?

So habe ich herausgefunden, daß eben in use base qw(Foo Bar); die Reihenfolge eine Rolle spielt und somit diese Methoden einfach überschrieben werden nach dem Motto: Wer zuletzt kommt mahlt zuerst. Also von rechts nach links überschreibt Bar::method Foo::method.

Kann das jemand bestätigen oder ist es gar ganz anders? Und welche PerlDoc ist da zuständig ?

mfg
- +2 replies
- Crian
  
  2023-11-04 11:24
  
  User since
  2003-08-04
  5871 articles
  ModeratorIn
  
  Da würde ich an deiner Stelle einen kleinen Testcode mit drei Klassen schreiben. Ich bin leider aus Perl schon etwas raus, sonst hätte ich das gemacht. :)
  s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
  
  use strict; use warnings; Link zu meiner Perlseite
  - rosti
    
    2023-11-04 11:41
    User since
    2011-03-19
    3481 articles
    BenutzerIn
    
    Ok ;)
    
    Also das ist jetzt echt doof, weil: Es ist genau andersherum.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    use base qw(Boo Foo Bar); use strict; use warnings; my $m = bless{}; $m->whois; # Boo
    
    PS: Ersten Test nochmal gemacht. Es ist tatsächlich so und reproduzierbar: Wer in use base qw(main App) zuerst kommt mahlt zuerst.
    
    Zum Spielen ;)
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
    
    package Foo; sub new{ return bless{},shift } sub whois{ print __PACKAGE__ } package Bar; sub new{ return bless{},shift } sub whois{ print __PACKAGE__ } package Boo; sub new{ return bless{},shift } sub whois{ print __PACKAGE__ } package main; use base qw(Bar Boo Foo); use strict; use warnings; my $m = main->new; $m->whois;
    
    Last edited: 2023-11-04 16:12:10 +0100 (CET)
- +7 replies
- Linuxer
  
  2023-11-04 19:06
  User since
  2006-01-27
  3890 articles
  HausmeisterIn
  Die Module werden normalerweise in der Reihenfolge in @ISA hinterlegt, wie sie beim use base qw() angegeben waren.
  
  Wenn dann später eine Methode nicht gefunden wird, dann werden diese Einträge in @ISA abgeklappert.
  
  Das erste Modul, dass eine namentlich entsprechende Methode anbieten kann, gewinnt und diese Methode wird benutzt.
  
  Bei use base qw( Foo Bar ); steht Foo vor Bar, und Foo::whois() wird als erstes genutzt.
  
  Die Suche kann man "überspringen", indem man das gewünschte Modul mitbenennt:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  use parent qw( Foo Bar ); # Suche in @ISA nach Modul, das who_am_i() bereitstellen kann; Erster Treffer zieht main->who_am_i(); # Bar muss in ISA sein; Methode Bar::who_am_i() wird direkt aufgerufen main->Bar::who_am_i();
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +4 replies
  - rosti
    
    2023-11-04 19:31
    
    User since
    2011-03-19
    3481 articles
    BenutzerIn
    
    Danke Dir!
    
    Und noch eine Ergänzung, Beispiel use base qw(Foo Bar);
    
    Methoden die Foo per AUTOLOAD nachlädt, sind nicht dominant. D.h., daß gleichnamige in Bar notierte Methoden ausgeführt werden, egal ob der Reihenfolge Foo, Bar in @INC.
    
    MFG
    - +3 replies
    - Crian
      
      2023-11-04 19:59
      
      User since
      2003-08-04
      5871 articles
      ModeratorIn
      
      Das klingt nach potentiellen Fallstricken.
      s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
      
      use strict; use warnings; Link zu meiner Perlseite
      - rosti
        
        2023-11-04 20:07
        
        User since
        2011-03-19
        3481 articles
        BenutzerIn
        
        2023-11-04T18:59:34 Crian
        Das klingt nach potentiellen Fallstricken.
        
        Ja. Ist aber von der Anzahl an Leerzeichen in Einrückungen unabhängig.
        
        MFG
      - rosti
        
        2023-11-04 21:54
        
        User since
        2011-03-19
        3481 articles
        BenutzerIn
        
        Also die ursprüngliche Aufgabe bestand darin, 3 Methoden der Basisklasse zu überschreiben. Dank OOP tut man das gewöhnlich ganz einfach in der Subklasse.
        In meinem Fall ists jedoch so, daß ich mehrere verschiedene Subklassen habe in denen jeweils genau diese 3 Methoden überschrieben werden müssen. Auf diese Art und Weise bin ich auf die Mehrfachvererbung gekommen:
        
        Einfach eine weitere Basisklasse schreiben welche diese 3 Methoden überschreibt.
        
        OOP ist geil ;)
        
        Schönes Wochenende!
  - +2 replies
  - barney
    
    2023-11-05 10:49
    
    User since
    2008-08-31
    167 articles
    BenutzerIn
    
    Mit dem Pragme mro kann man diesen Algorithmus auf die C3 Methodenauflösung umstellen. Diese Reihenfolge kann man als logischer ansehen, weil die spezifischeren Implementationen gewinnen. Siehe MRO
    - rosti
      
      2023-11-05 12:41
      
      User since
      2011-03-19
      3481 articles
      BenutzerIn
      
      Stimmt, logisch wäre von rechts nach links (was ich anfangs auch annahm).
      
      Danke Dir!!!
      
      Weiterhin Schönen Sonntag ;)
- +7 replies
- hlubenow
  
  2023-11-05 13:48
  
  User since
  2009-02-22
  875 articles
  BenutzerIn
  
  2023-11-04T09:40:29 rosti
  Was passiert wenn bei use base qw(Foo Bar); Foo und Bar dieselben gleichnamigen Methoden definieren?
  
  Warum sollte man sowas machen?
  - +6 replies
  - rosti
    
    2023-11-05 15:53
    
    User since
    2011-03-19
    3481 articles
    BenutzerIn
    
    2023-11-05T12:48:40 hlubenow
    2023-11-04T09:40:29 rosti
    Was passiert wenn bei use base qw(Foo Bar); Foo und Bar dieselben gleichnamigen Methoden definieren?
    
    Warum sollte man sowas machen?
    
    Code vereinfachen, redundanten Code vermeiden, OOP effizient und zweckmäßig einsetzen.
    
    MFG ;)
    - +5 replies
    - hlubenow
      
      2023-11-05 16:14
      
      User since
      2009-02-22
      875 articles
      BenutzerIn
      
      Und dazu mußt Du von mehreren Klassen gleichzeitig erben, die dann auch noch gleichlautende und sich überschneidende Methoden haben?
      - +4 replies
      - rosti
        
        2023-11-05 16:46
        
        User since
        2011-03-19
        3481 articles
        BenutzerIn
        
        2023-11-05T15:14:44 hlubenow
        Und dazu mußt Du von mehreren Klassen gleichzeitig erben, die dann auch noch gleichlautende und sich überschneidende Methoden haben?
        
        Lies doch einfach mal was ich gestern abend geschrieben habe. Methoden überschreiben ist OOP Praxis: Ohne Vererbung kein Überschreiben.
        
        Das sieht in meinem FW/Anwendungsklassen dann so aus:
        
        Code (perl): (dl )
        
        1 2
        
        use base qw(main); # Desktop HTML use base qw(App main); # Mobil HTML
        
        Ansonsten bleiben alle Methoden namentlich gleich.
        
        Und natürlich kann man das alles auch gaaaaanz anders machen ;)
        
        MFG
        Last edited: 2023-11-05 18:41:04 +0100 (CET)
        
        +3 replies
        
        hlubenow
        
        2023-11-06 15:07
        
        User since
        2009-02-22
        875 articles
        BenutzerIn
        
        https://en.wikipedia.org/wiki/Multiple_inheritance
        
        "controversial issue for many years" ...
        
        rosti
        
        2023-11-06 15:48
        
        User since
        2011-03-19
        3481 articles
        BenutzerIn
        
        Ach Hauke,
        
        die Sache ist doch immer wieder die: Man muß sich einfach mal richtig damit befassen ;)
        
        Und was ich heute gelernt habe: Kaffee ohne Zucker ist möglich aber geschmacklos.
        
        Viele Grüße ;)
        
        rosti
        
        2023-11-11 08:43
        
        User since
        2011-03-19
        3481 articles
        BenutzerIn
        
        2023-11-06T14:07:51 hlubenow
        https://en.wikipedia.org/wiki/Multiple_inheritance
        
        "controversial issue for many years" ...
        
        Ganz ehrlich: Ja.Von daher bin ich jetzt auch bei meiner Einfachvererbung geblieben und regele der Verhalten der Methoden über Attribute die zum URL konfiguriert werden. Das ist dann auch viel einfacher zu verwalten insbesondere hinsichtlich einer etwaigen Fehlersuche.
        
        Somit werden Attribute der Konfiguration geerbt und ggf. überschrieben:
        
        Code (perl): (dl )
        
        1 2
        
        # Merge Config, Override Default %$stash = (%$default, %$eav, %$stash);
        
        Zum Glück gibt es bei Viren keine Vererbung ;)
        
        .
        Last edited: 2023-11-11 08:48:48 +0100 (CET)

View all threads created 2023-11-04 10:40.