Package Deklaration in Datei (gelöst) (Allgemeines zu Perl)

[thread]19507[/thread]

Package Deklaration in Datei [gelöst]

Tags: perl5 require package do Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+5 replies
rosti

2015-02-14 10:08

User since
2011-03-19
3509 Artikel
BenutzerIn

Die Datei wird mit do oder require eingebunden. Gewöhnlich ist der Name der Package like package Foo; in der Datei deklariert. Das ist sozusagen fest kodiert.

Gibt eine eine Möglichkeit, diese Deklaration variabel, also vor oder nach do/require zu gestalten?

Schöne Grüße.
- +4 replies
- GwenDragon
  
  2015-02-14 10:26
  
  User since
  2005-01-17
  14787 Artikel
  Admin1
  
  Was hindert dich, die Datei als Template anzulegen, vor dem do/require den Inhalt zu ändern?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - rosti
    
    2015-02-14 10:36
    User since
    2011-03-19
    3509 Artikel
    BenutzerIn
    
    2015-02-14T09:26:26 GwenDragon
    Was hindert dich, die Datei als Template anzulegen, vor dem do/require den Inhalt zu ändern?
    
    Das gänge dann mit eval:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
    
    use strict; use warnings; use 5.010; my $data = do{local $/ = undef; <DATA>}; $data = sprintf $data, 'Foo'; eval "$data"; Foo::foo(); __DATA__ package %s; sub foo{ say "foo" } sub bar{ say "bar" }
    - +2 replies
    - renee
      
      2015-02-14 11:57
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Selbst gebaut:
      
      Code: (dl )
      
      1 2 3 4 5 6 7
      
      my $packagename = 'Foo::Info'; (my $filename = $packagename) =~ s{::}{/}g; # mit Perl 5.20 (oder .18?) => my $filename = $packagename =~ s{::}{/}gr; $filename .= '.pm'; require $filename;
      
      Oder
      
      Code: (dl )
      
      1 2 3 4 5 6 7
      
      use Module::Load; my $packagename = 'Foo::Info'; load $packagename; # wenn import() ausgeführt werden soll autoload $packagename;
      
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - rosti
        
        2015-02-14 13:43
        
        User since
        2011-03-19
        3509 Artikel
        BenutzerIn
        
        Hi, danke für die Ideen.
        
        PS: Ein bischen mehr zum Hintergrund. Verschiedene Klassen sind bereits kompiliert und die jeweilige Instanz ist erstellt. Die Klasse soll danach um mehrere Methoden erweitert werden, das sind Methoden eines Interface, welche über die Instanz aufgerufen werden sollen. Es ergibt sich die Situation, dass mehrere, namentlich unterschiedliche Klassen dieselben Interface-Methoden verwenden können, so müssen diese Methoden nur einmal definiert werden. Letzeres erfolgt in einer Datei, welche ich bisher mit require eingebunden habe. Redundanter Code soll vermieden werden. Das ist das Ziel.
        
        Beispiel zur Verwendung: Die Klassen MVC::TemplateFile und MVC::EAV liefern verschiedene Seiten aus und ein paar von denen sollen ein Rating-Formular bekommen. So könnte ich die Verwendung infolge Subklassenbildung spezialisieren:
        
        Code (perl): (dl )
        
        1 2
        
        MVC::TemplateFile::Rating; MVC::EAV::Rating;
        
        hätte jedoch dann zwei verschiedene Dateien in denen exakt dieselben Interface-Methoden definiert sind. In diesem Fall würde die Instanz (Response-Objekt) über die jeweilige Subklasse erstellt.
        
        Eine spätere Zuweisung der Interface-Methoden wäre möglich über ein Attribut, wegen der Package-Deklaration wäre die Datei mit den Interface-Methoden jedoch auch wieder fest an MVC::TemplateFile oder MVC::EAV gekoppelt, also auch hier wieder zwei Dateien, die sich nur in der Package-Deklaration unterscheiden würden.
        
        Die spätere Zuweisung bringt gegenüber der Subklassenbildung den Vorteil, dass dies über die WebSite-Konfiguration möglich ist. Das betrifft auch den Einbau dynamischer Inhalte über Platzhalter im Template. Meine Lösung sieht nun so aus, dass für die betreffenden Seiten, um im Beispiel zu bleiben, einfach das Attribut interface=Rating bekommen, was dazu führt, dass die Datei interface/Rating.pm eingelesen und vor dem Kompilieren um die Package-Deklaration
        
        Code (perl): (dl )
        
        1 2 3 4
        
        package MVC::TemplateFile; # oder package MVC::EAV; # oder Weitere...
        
        ergänzt wird. Mit state %compiled; schaffe ich einen Merker (Semaphore) welcher sicherstellt, dass die Datei mit den Interface-Methoden für die jeweilige Klasse nur _einmal_ kompiliert wird, ähnlich wie das normalerweise über %INC erfolgt.
        
        Sonntagsfahrer
        ================
        Ein völlig anderer Weg führt auch zum Ziel: Anstatt einer variablen Package-Deklaration wird sie einfach weggelassen. do "interface/$ifdatei.pm"; liefert statt einer 1; einen Hash mit Codereferenzen. Diese Codereferenzen werden dann im Namespace der jeweiligen Klasse ausgeführt. Der Hash mit den Codereferenzen wird auch hierzu nur _einmal_ in den Hauptspeicher geladen, das bringt insbesondere für mod_perl oder mod_fastcgi Vorteile in Sachen Performance.
        Last edited: 2015-02-15 12:33:19 +0100 (CET)

View all threads created 2015-02-14 10:08.