Funktionen in Modulen nutzen (gelöst) (Allgemeines zu Perl)

[thread]20009[/thread]

Funktionen in Modulen nutzen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+6 replies
der_thomas

2016-03-07 21:11
User since
2013-09-07
158 Artikel
BenutzerIn
Hallo,

ich habe zwei Fragen bezüglich der Nutzung von Modulen.

Hintergrund:
Ich will von einem Aufruferscript Funktionen eines Moduls direkt nutzen, die Dateistruktur ist dabei folgende:

/home/thomas/Programme/Perl/front.pl #Aufruferscript
/home/thomas/Programme/Perl/modules/Algo_Tool.pm #Modul dessen Funktion ich direkt nutzen will.

Das funktioniert mittels Exporter in Algo_Tool auch - wenn das Aufruferscript folgendes beinhaltet:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl use v5.12; use lib "/home/thomas/Programme/Perl/modules/"; use Algo_Tool; # Ab hier dann ein direktes ansprechen der Funktionen, z.B. test();
Dazu die erste Frage, spricht etwas gegen obige Vorgehensweise, außer dass es wenig portabel ist ?

Frage 2, warum funktioniert folgendes nicht ?
Code (perl): (dl )

1 2 3 4

#!/usr/bin/perl use v5.12; use modules::Algo_Tool; test();
Es erscheint die Fehlermeldung:

Undefined subroutine &main::test called at front.pl line 39.

In @INC erscheint als letzter Eintrag ein '.', was, wenn ich das richtig verstanden habe, bedeuten müßte dass zuletzt - ausgehend vom aktuellen Arbeitsverzeichnis (in dem das Aufruferscript liegt ?) gesucht wird ? Und dort liegt der Ordner 'modules' und darin Algo_Tool.pm

Und auch hier bekomme ich die gleich Fehlermeldung:
Code (perl): (dl )

1 2 3 4

#!/usr/bin/perl use v5.12; use lib "/home/thomas/Programme/Perl/"; use modules::Algo_Tool;
Ich verwende Perl 5.18.2 auf einem Ubuntu/Linux Mint System.

MfG
thomas
- +2 replies
- Raubtier
  
  2016-03-07 21:26
  User since
  2012-05-04
  1054 Artikel
  BenutzerIn
  Wie beginnt dein Modul?
  
  Beginnt es mit:
  
  Code (perl): (dl )
  
  package modules::Algo_Tool;
  - der_thomas
    
    2016-03-08 20:52
    
    User since
    2013-09-07
    158 Artikel
    BenutzerIn
    
    @Raubtier
    Das wars, Danke für den Wink
    Mein package nannte ich Schelm natürlich nur Algo_Tool
    Nach einem Umbenennen in modules::Algo_Tool funktioniert es
    
    @all
    Danke auch den anderen für eure Gedanken zum Thema
    
    MfG
    thomas
- +3 replies
- GwenDragon
  
  2016-03-08 09:24
  User since
  2005-01-17
  14533 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2
  
  use lib "modules"; use Algo_Tool;
  
  Sollte korrekt funktionieren, um das Package Algo einzubinden, wenn dein Programm in /home/thomas/Programme/Perl/ liegt.
  Last edited: 2016-03-08 09:32:37 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +2 replies
  - clms
    
    2016-03-08 14:20
    User since
    2010-08-29
    373 Artikel
    BenutzerIn
    
    2016-03-08T08:24:33 GwenDragon
    
    Code (perl): (dl )
    
    1 2
    
    use lib "modules"; use Algo_Tool;
    
    Sollte korrekt funktionieren, um das Package Algo einzubinden, wenn dein Programm in /home/thomas/Programme/Perl/ liegt.
    
    Nein, das ist nicht garantiert.
    
    Ein relativer Pfad in @INC oder use lib ist relatitv zum current directory, nicht unbedingt zum Skript, in dem das use lib steht. Dein Beispiel funktioniert, wenn Du in /home/thomas/Programme/Perl das Sript ./front.pl aufrufst, aber nicht wenn du in /home/thomas das Script Programme/Perl/front.pl aufrufst.
    - GwenDragon
      
      2016-03-08 15:42
      
      User since
      2005-01-17
      14533 Artikel
      Admin1
      
      Stimmt, ich meinte das anders. Mein Fehler.
      Es funktioniert nur, wenn man sich beim Start des Programms in dem verzeichnis .... befindet.
      
      Deswegen ist die Angabe eines absoluten Pfads für einzubindende Module sinnvoller.
      
      Es lässt sich auch mit FindBin arbeiten, das kann aber auch unter mod_perl versagen.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2016-03-07 21:11.