Module dynamisch laden (Allgemeines zu Perl)

[thread]13773[/thread]

Module dynamisch laden

Leser: 24

Articles: hide open all | hide show old branches

+5 replies
Cappu

2009-07-23 17:55

User since
2009-07-23
25 Artikel
BenutzerIn

Hallo zusammen,

ich versuche derzeit in einen "Hauptprogramm" alle in einen Unterverzeichnis vorhandenen *.pm Files zu laden. Ich will eine Art Plugin Mechanismus nachbilden, so das ich im Hauptprogramm alle Module mit der selben Funktion aufrufen kann...

Ich habe bereits mittels Module::Pluggable experimentiert, allerdings mit wenig Erfolg.

PS: die einzelnen "Plugin Files" enthalten lediglich eine Funktion (keine Klasse)

Kennt hier jemand einen Ansatz / Idee?

Danke!
- GwenDragon
  
  2009-07-23 18:08
  
  User since
  2005-01-17
  14745 Artikel
  Admin1
  
  Mit File::Find alles .pm-Dateien in dem Unterverzeichnis suchen und mit require einbinden.
  Last edited: 2009-07-23 18:11:26 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- pq
  
  2009-07-23 18:35
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Module::Find
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +2 replies
  - Cappu
    
    2009-07-23 21:42
    
    User since
    2009-07-23
    25 Artikel
    BenutzerIn
    
    danke!!!
    
    Module::Find war die Lösung - noch eine kleine Frage hierzu:
    
    use Module::Find;
    
    # use all modules in the Plugins/ directory
    @found = usesub Modules;
    
    &{$found[0]}::plugintest();
    
    -> funktioniert leider nicht!? (PS: mit eval scheint es zu gehen, gibts hier bessere Lösung?)
    Last edited: 2009-07-23 21:44:36 +0200 (CEST)
    - pq
      
      2009-07-23 22:24
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      also wenn deine module objektorientiert sind, in der art von File::Find zumindest, dann ist es einfach; evtl. kannst du das auch so ändern. dann würde es ganz einfach gehn:
      
      Code (perl): (dl )
      
      $found[0]->plugintest();
      
      plugintest kriegt dann den klassennamen als erstes argument.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2009-07-23 17:55.