Aufruf von Sub - Klassen mit variablen Namen (Allgemeines zu Perl)

[thread]21191[/thread]

Aufruf von Sub - Klassen mit variablen Namen

Tags: perl5 Similar Threads

Readers: 9

Articles: hide open all | hide show old branches

+6 replies
YAPD

2021-05-11 16:02
User since
2015-09-20
146 articles
BenutzerIn
Hi liebe PERL Community,

ich habe eine Anwendung entwickelt, die eigentlich bereits stabil
läuft, doch bei der Einbindung der Module habe ich im Zusammenhang
mit "use base qw" ein Problem, das ich nicht in den Griff bekomme.
Code: (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

package Kernel::Config; use strict; use warnings; use base qw( Kernel::Config::Defaults ); # -------------------------------------------------------------------------------------------------------------------------------------------------------- sub Config_Loader { my ( $Typ, %Parameter ) = @_; my $Self = { }; bless( $Self , $Typ ); # -------------------------------------------------------------------------------------------------------------------------------------------------------- $Self -> { Home } = 'E:/Programmierung/Aktuell'; $Self -> { Debug_Modus } = 'N'; $Self -> Defaults_Loader( \$Self ); # -------------------------------------------------------------------------------------------------------------------------------------------------------- # Rückgabe der Config - Werte return $Self; }
Wie ihr seht, rufe ich in meiner Config - Datei die Sub - Routine "Defaults_Loader" aus der Klasse "Kernel::Config::Defaults" auf :
Code: (dl )

1 2 3 4 5

use base qw( Kernel::Config::Defaults ); ... $Self -> Defaults_Loader( \$Self );
Problematik :

Ich habe in einer anderen Klasse ( SQL ) im Grunde das gleiche
Prinzip, nur dass die Klasse nicht eindeutig ist.

Die Klassen können, je nach Konfiguration, sein :

my $Class = Kernel::Internals::DB::mysql
my $Class = Kernel::Internals::DB::postgres
my $Class = Kernel::Internals::DB::sqlserver

Damit ich die Variablen bequem nutzen kann, will ich den Aufruf
"$Self -> Defaults_Loader( \$Self );" beibehalten. Aber wie
kann ich das umsetzen.

Der Befehl "use base qw( $Class )" funktioniert so ja leider nicht.

Diverse Versuche mit @INC und @ISA scheiterten leider wie z.B. die
Klasse mit "$INC{ Module } = $Class oder @ISA = ( "$Class" ) zu den globalen Variablen hinzuzufügen.

Ich hoffe, ich habe es gut genug erklärt und ihr könnt mir helfen.

Vielen Dank !

Beste Grüße
YAPD
Last edited: 2021-05-11 16:11:04 +0200 (CEST)
Yet Another Perl Developer
- +4 replies
- hlubenow
  
  2021-05-11 16:37
  User since
  2009-02-22
  875 articles
  BenutzerIn
  Hallo YAPD,
  
  bin nicht sicher, ob ich das richtig beantworten kann.
  Mit "use base" verwendest Du ja Vererbung. Nach meinem Beispiel dazu müßtest Du dann "new()" schon aus der Eltern-Klasse erben. Da müßte auch schon das "bless()" drin sein.
  Daß Du jetzt nochmal "bless()" verwendest, und auch sonst Deine Methode "Config_Loader()" wie eine "new()"-Funktion aussieht, verstehe ich nicht so ganz.
  Warum löschst Du denn $self (bzw. bei Dir "$Self")?
  
  Code (perl): (dl )
  
  my $Self = { };
  
  Damit machst Du doch die Vererbung mehr oder weniger wieder zunichte.
  Vielleicht würde es helfen, wenn Du den relevanten Teil der Eltern-Klasse noch dazupostest.
  Grundsätzlich wäre es ja so, daß zuerst "new()" aufgerufen wird. Darin wird "$self" definiert. Nachdem "new()" abgeschlossen ist, steht "$self" zur Verfügung und könnte dann auch als Parameter an andere Klassen übergeben werden. Aber erst dann.
  
  Kann es sein, daß Du eigentlich gar keine Vererbung willst, sondern daß Du der Klasse "Kernel::Config" verschiedene Objekte übergeben willst, die alle eine Funktion "Defaults_Loader()" haben?
  Last edited: 2021-05-11 16:45:13 +0200 (CEST)
  - +3 replies
  - hlubenow
    
    2021-05-11 16:50
    User since
    2009-02-22
    875 articles
    BenutzerIn
    
    Mit Vererbung:
    
    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 31 32 33 34
    
    #!/usr/bin/perl use warnings; use strict; package Kernel::Config::Defaults { sub new { my $classname = shift; my $self = {}; return bless($self, $classname); } sub Defaults_Loader { my $self = shift; my $kernelConfig = shift; print $kernelConfig->{home} . "\n"; } } package Kernel::Config { use base 'Kernel::Config::Defaults'; sub Config_Loader { my $self = shift; $self->{home} = 'E:/Programmierung/Aktuell'; $self->{debug_modus} = 'N'; $self->Defaults_Loader($self); } } my $kc = Kernel::Config->new(); $kc->Config_Loader();
    
    Edit: Da war ein Bug: Hatte ein "my $self = shift;" vergessen. Das braucht jede Funktion innerhalb einer Klasse am Anfang (außer new()).
    
    Edit2: "$self" ist bereits eine Referenz. Es ist nicht nötig, eine Referenz darauf an eine Funktion zu übergeben (was in Deinem Posting so gemacht wurde), man kann einfach "$self" übergeben. Es repräsentiert dann das ganze Objekt. Auf dessen Attribute man dann zugreifen kann, vgl. den "print"-Befehl.
    Last edited: 2021-05-11 18:44:18 +0200 (CEST)
    - YAPD
      
      2021-05-11 20:36
      
      User since
      2015-09-20
      146 articles
      BenutzerIn
      
      Hi hlubenow,
      
      erstmal vielen Dank für deinen Beitrag und für die Hilfe zu meiner
      Anwendung. Da du viele Dinge berechtigterweise beanstandet hast,
      habe ich das ganze Konstrukt noch einmal überarbeitet und ich
      hoffe, auch auf deine Hinweise geachtet. :)
      
      Ich werde die Ergebnisse in Kürze posten.
      
      Beste Grüße
      YAPD
      Yet Another Perl Developer
    - YAPD
      
      2021-05-11 21:31
      
      User since
      2015-09-20
      146 articles
      BenutzerIn
      
      Hi hlubenow,
      
      wie versprochen, möchte ich dir nun die Ergebnisse
      meiner "Umbauarbeiten" präsentieren :-).
      
      1. Ich habe einen Object - Manager ( hier kurz OM genannt ), der per new( )
      Befehl die gewünschten Parameter liefert.
      
      2. Ich rufe in meinem Hauptscript den Object - Manager mit dem Befehl "my $OM = Kernel::OM -> new( );" auf :
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
      
      sub new { my ( $Type , %Param ) = @_; my $Self = bless { } , $Type; for my $Parameter ( sort keys %Param ) { $Self -> { Parameter } -> { $Parameter } = $Param{ $Parameter }; } return $Self; }
      
      3. Ich lade die Config über die Load( ) Funktion des Object - Managers :
      
      Code: (dl )
      
      1 2
      
      my $Config = $OM -> Load( 'Kernel::Config' );
      
      Sub - Routine "Load( )" :
      
      Code: (dl )
      
      1 2 3 4 5
      
      sub Load( ) { return $_[ 0 ] -> Builder( Package => $_[ 1 ] ); }
      
      4. Erstellung des Objektes über Funktion "Builder( )"
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
      
      sub Builder { my ( $Self , %Parameter ) = @_; my $OM_Package = $Parameter{ Package }; my $OM_FH = $OM_Package; $OM_FH =~ s{::}{/}g; $OM_FH .= '.pm'; eval { require $OM_FH; }; my $OM_Objects = $OM_Package -> New( %{ $Self -> { Parameter } -> { $OM_Package } // { } } ); $Self -> { Objects } -> { $OM_Package } = $OM_Objects; return $OM_Objects; }
      
      5. Ausgabe der Werte im Hauptscript :
      
      Code: (dl )
      
      1 2 3 4 5 6 7
      
      my $Config = $OM -> Load( 'Kernel::Config' ); ... print "Eintrag aus Config : " . $Config -> { Home } . "\n"; print "Eintrag aus Defaults : " . $Config -> { Defaults } . "\n";
      
      Das war eim Prinzip schon alles. Die Anwendung funktioniert meines Erachtens
      so perfekt, solltest du allerdings Änderungs- oder Verbesserungsvorschläge
      haben, bin ich dafür natürlich offen.
      
      Beste Grüße
      YAPD
      Last edited: 2021-05-11 21:34:53 +0200 (CEST)
      Yet Another Perl Developer
- rosti
  
  2023-05-25 12:32
  User since
  2011-03-19
  3481 articles
  BenutzerIn
  Anstatt use base ... könntest Du auch das @ISA-Array verwenden:
  
  Code (perl): (dl )
  
  1 2
  
  my $class = "Foo"; our @ISA = ($class);
  
  Aber irgendwie scheint mir Dein Konzept einer variablen Basisklasse nicht schlüssig. Besser andersherum, also eine Basisklasse und die Subklassen variabel, finde ich. Und die kannste dann mit require einbinden.
  
  MFG

View all threads created 2021-05-11 16:02.