Fragen zu 'package' (Allgemeines zu Perl)

[thread]20335[/thread]

Fragen zu 'package'

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+13 replies
Gast Andi123

2017-07-28 14:46
Hallo,

in einem übernommenen Projekt gibt es viele Skripte und eine große package-Datei 'main.pm'. In dieser sind eine Vielzahl an subs gesammelt.

Für eine bestimmte Erweiterung habe ich in dieser package-Datei eigene Subs hinzugefügt. Das sind aber letztlich recht viele geworden und ich würde diese gern in einer eigenen 'userFunctions.pm'-Datei bündeln.

Kann ich das problemlos tun?

In den ganzen Skripten wird bisher per
Code (perl): (dl )

use main.pm
auf die 'main.pm'-package-Datei verwiesen.

Reicht es jetzt, in der 'main.pm' auf meine neu zu erschaffende 'userFunctions.pm' mit
Code (perl): (dl )

use userFunctions.pm
zu verweisen, damit die Funktionen der 'userFunction.pm' auch in allen Skriptdateien zur Verfügung stehen?

Danke und schon mal ein schönes Wochenende!
Last edited: 2017-07-28 14:49:36 +0200 (CEST)
- +10 replies
- GwenDragon
  
  2017-07-28 14:56
  User since
  2005-01-17
  14872 Artikel
  Admin1
  Ja, eigentlich schon.
  Ich weiß ja nicht genau wie du Module schreibst und was für ein Wissen du hast.
  Wenn dein Modul nicht Funktionen usw. exportiert, dann musst die Funktionen aber mit Paketnamen::subname aufrufen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  package main; use userFunction; my $ergebnis = userFunction::eine_sub(42, 13); 1;
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  package userFunction; sub eine_sub { my $parm1 = shift; my $parm2 = shift; return $parm1 * $parm2; } sub kartoffel_subbe { return 'NIX DA!'; } 1;
  
  Last edited: 2017-07-28 14:57:50 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Gast Andi123
    
    2017-07-28 15:09
    
    Vielen Dank!
    Last edited: 2017-07-28 15:28:59 +0200 (CEST)
  - +8 replies
  - Gast Andi123
    
    2017-07-28 15:35
    So, ich noch mal :)
    
    Das Aufrufen der 'userFunctions.pm'-Subs aus den Skript-Dateien funktioniert.
    
    Was nicht klappt ist, dass %config-Variablen, die in der 'main.pm' initial gesetzt werden, auch in der 'userFunctions.pm' genutzt werden können. Diese Variablen sind aber alle leer.
    
    Ich habe dann versucht, mal in der 'userFunctions.pm' die 'main.pm' mit einzubinden. Kein Erfolg.
    
    Und dann habe ich auch mal versucht, ob ein Exportieren/Importieren der Variablen per
    
    Code (perl): (dl )
    
    use main qw(%form %config);
    
    in die 'userFunctions.pm' funktioniert.
    
    Aber auch hier sind dann die, in der main.pm definierten %config-Variablen für die Subs der 'userFunction.pm' leer.
    
    Ich dachte, das Ganze würde so funktionieren:
    
    - script.pl bindet main.pm ein
    - main.pm bindet userFunction.pm ein
    - script.pl ruft eine Sub der userFunction.pm auf. Klappt. Bis eben auf dass die Variablen, die in der main.pm gesetzt werden, halt leer sind.
    
    Muss ich in der script.pl dann doch die userFunction.pm einbinden?
    
    Danke
    Last edited: 2017-07-28 15:58:53 +0200 (CEST)
    - Linuxer
      
      2017-07-28 16:04
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Hi,
      
      mit "package" werden sogenannte Namensräume geschaffen.
      
      Wenn eine Variable im "package main" definiert ist, ist sie das nicht unbedingt im "package userFunctions".
      
      Ein Weg wäre, innerhalb des "package userFunctions" zu schauen, ob Du Werte aus %main::config bekommst.
      
      Ansonsten ist unklar, wie die Variablen hier konkret definiert sind. Daher kann man auch keine konkrete Hilfe geben, sondern nur drum rum raten.
      
      Insgesamt würde ich sagen, solltest Du Dir hier mal die Dokumentation anschauen, was es mit "package" alles auf sich hat und was das noch bedeutet. Siehe dazu: perlfunc package und auch die darin verlinkten Hinweise auf perlmod und perlsub .
      Last edited: 2017-07-28 16:05:32 +0200 (CEST)
      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!
    - Linuxer
      
      2017-07-28 16:09
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Hi,
      
      wenn Du ein use main qw(%form %config); zum Importieren machst, setzt das natürlich voraus, dass die entsprechenden Variablen auch exportiert werden. Werden sie das denn in "main.pm"? Siehe dazu auch "Perl Modules" in perlmod .
      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!
    - Linuxer
      
      2017-07-28 16:25
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Ich habe gerade mal ein wenig rumgespielt...
      Wie GwenDragon schon schreibt, standardmäßig nutzt Perl den Namensraum "main".
      Der wird aber normalerweise nicht explizit benannt, sondern ist halt da und wird genutzt.
      
      Nun wird über die "main.pm" einiges definiert und ebenfalls in den Namensraum "main" geladen.
      Mit "userFunctions" führst Du nun einen vollkommen neuen Namensraum ein und musst nun dafür Sorge tragen, dass im Skript die Funktionen und Variablen des jeweiligen Namensraums benutzt werden.
      
      Ein grober Ansatz könnte evtl. sein, die "userFunctions" selber im Skript einzubinden und innerhalb der Funktionen, die in userFunctions.pm definiert werden, den Namensraum "main" explizit anzugeben, wenn Variablen/Funktionen daraus genutzt werden sollen.
      
      Beispiel:
      
      main.pm (2.1kb)
      
      userFunctions.pm (1.5kb)
      
      script.pl (1.5kb)
      
      Und wenn man den Exporter benutzt, kann man, wenn man will oder glaubt zu müssen, die Funktionen von userFunctions.pm auch direkt exportieren lassen, damit sie dann im Skript ohne "userFunctions::" voranzustellen, aufgerufen werden können.
      
      Aber im Hintergrund schreit es danach, dass dieses Konstrukt u.U. mal auf neue und saubere Beine gestellt werden sollte.
      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!
    - GwenDragon
      
      2017-07-28 17:39
      
      User since
      2005-01-17
      14872 Artikel
      Admin1
      
      Automatisch wird sowieso nix exportiert oder importiert. http://perldoc.perl.org/Exporter.html#How-to-Impor...
      
      Was aus einem Modul (also einem package) exportierbar ist, musst du definieren. http://perldoc.perl.org/Exporter.html
      
      Weiteres:
      https://perlmaven.com/how-to-create-a-perl-module-...
      https://perlmaven.com/import
      https://perlmaven.com/on-demand-import
      https://perlmaven.com/restrict-the-import
      Last edited: 2017-07-28 18:02:36 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - hlubenow
      
      2017-07-28 18:05
      
      User since
      2009-02-22
      885 Artikel
      BenutzerIn
      
      main.pm halte ich für einen sehr schlechten Namen für ein Modul. Den Namensraum main gibt es ja schon automatisch in script.pl.
      Hier mal ein Skeleton für ein Modul MyModule.pm:
      
      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
      
      package MyModule; use 5; use warnings; use strict; use Carp; use Exporter; our ($VERSION, @ISA, @EXPORT); @ISA = qw(Exporter); $VERSION = 1.0; @EXPORT = qw(myfunction); # Functions sub myfunction { } 1;
      
      Normalerweise will man die Funktionen aus dem Modul in seinem Skript benutzen. Aber nicht die Variablen aus seinem Skript in einem Modul.
      Sonst müßte man sie halt dort noch einmal neu definieren.
    - +2 replies
    - rosti
      
      2017-07-28 18:26
      
      User since
      2011-03-19
      3720 Artikel
      BenutzerIn
      
      Code (perl): (dl )
      
      use MyModul qw(%form %config);
      
      Die zu importierenden Symbole müssen im Modul in @EXPORT_OK aufgeführt sein.
      
      Code (perl): (dl )
      
      1 2 3 4
      
      package MyModul; require Exporter; our @EXPORT_OK = qw(%form %config);
      
      Am Besten mal ein gutes Buch über PerlModule lesen.
      http://rolfrost.de/wallpaper.html
      
      WallPaper -- jeden Monat neu. Mit nur 2 Klicks den Aktuellen Monat auf dem Desktop.
      - GwenDragon
        
        2017-07-28 18:31
        
        User since
        2005-01-17
        14872 Artikel
        Admin1
        
        2017-07-28T16:26:58 rosti
        Am Besten mal ein gutes Buch über PerlModule lesen.
        Ja, wer Papier mag.
        Oder die Links von Perl-Maven wie unter msg #187039 geschrieben besuchen und Code und Videos ansehen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- rosti
  
  2017-07-28 15:29
  
  User since
  2011-03-19
  3720 Artikel
  BenutzerIn
  
  Quote
  viele Skripte und eine große package-Datei 'main.pm'.
  
  Das würde ja bedeuten, dass manche Skripts Funktionen laden die sie ggf. gar nicht benötigen. Wenn Du das optimieren möchtest musst Du es genau umgekehrt machen. Also CODE nur dann laden bzw. kompilieren wenn er tatsächlich gebraucht wird.
  
  Perls AUTOLOAD Mechanismus ist dazu geeignet, Code durch Teilen effizienter zu machen. Gleichermaßen verbessert das die Watungsfreundlichkeit, Übersichtlichkeit und Teamarbeit.
  http://rolfrost.de/wallpaper.html
  
  WallPaper -- jeden Monat neu. Mit nur 2 Klicks den Aktuellen Monat auf dem Desktop.
- GwenDragon
  
  2017-07-28 16:11
  
  User since
  2005-01-17
  14872 Artikel
  Admin1
  
  Dir ist vielleicht nicht bekannt, dass es den Namensraum main schon gibt? http://perldoc.perl.org/perlmod.html#Packages
  
  Ich bin nicht sicher ob dein Package da mit Perls internem main kollidiert.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2017-07-28 14:46.