Mehrfachvererbung Perl5 native (gelöst) (Allgemeines zu Perl)

[thread]21503[/thread]

Mehrfachvererbung Perl5 native [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+17 replies
rosti

2023-11-04 10:40

User since
2011-03-19
3762 Artikel
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
https://www.rolfrost.de/

Forum zu Fragen unserer Zeit
- +2 replies
- Crian
  
  2023-11-04 11:24
  
  User since
  2003-08-04
  5879 Artikel
  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
    3762 Artikel
    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)
    https://www.rolfrost.de/
    
    Forum zu Fragen unserer Zeit
- +7 replies
- Linuxer
  
  2023-11-04 19:06
  User since
  2006-01-27
  3891 Artikel
  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
    3762 Artikel
    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
    https://www.rolfrost.de/
    
    Forum zu Fragen unserer Zeit
    - +3 replies
    - Crian
      
      2023-11-04 19:59
      
      User since
      2003-08-04
      5879 Artikel
      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
        3762 Artikel
        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
        https://www.rolfrost.de/
        
        Forum zu Fragen unserer Zeit
      - rosti
        
        2023-11-04 21:54
        
        User since
        2011-03-19
        3762 Artikel
        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!
        https://www.rolfrost.de/
        
        Forum zu Fragen unserer Zeit
  - +2 replies
  - barney
    
    2023-11-05 10:49
    
    User since
    2008-08-31
    227 Artikel
    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
      3762 Artikel
      BenutzerIn
      
      Stimmt, logisch wäre von rechts nach links (was ich anfangs auch annahm).
      
      Danke Dir!!!
      
      Weiterhin Schönen Sonntag ;)
      https://www.rolfrost.de/
      
      Forum zu Fragen unserer Zeit
- +7 replies
- hlubenow
  
  2023-11-05 13:48
  
  User since
  2009-02-22
  885 Artikel
  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
    3762 Artikel
    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 ;)
    https://www.rolfrost.de/
    
    Forum zu Fragen unserer Zeit
    - +5 replies
    - hlubenow
      
      2023-11-05 16:14
      
      User since
      2009-02-22
      885 Artikel
      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
        3762 Artikel
        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)
        https://www.rolfrost.de/
        
        Forum zu Fragen unserer Zeit
        
        +3 replies
        
        hlubenow
        
        2023-11-06 15:07
        
        User since
        2009-02-22
        885 Artikel
        BenutzerIn
        
        https://en.wikipedia.org/wiki/Multiple_inheritance
        
        "controversial issue for many years" ...
        
        rosti
        
        2023-11-06 15:48
        
        User since
        2011-03-19
        3762 Artikel
        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 ;)
        https://www.rolfrost.de/
        
        Forum zu Fragen unserer Zeit
        
        rosti
        
        2023-11-11 08:43
        
        User since
        2011-03-19
        3762 Artikel
        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)
        https://www.rolfrost.de/
        
        Forum zu Fragen unserer Zeit

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