Subroutinen bündeln (gelöst) (Allgemeines zu Perl)

[thread]15855[/thread]

Subroutinen bündeln [gelöst]

Leser: 24

Articles: hide open all | hide show old branches

+14 replies
la_dy82

2011-01-17 07:50

User since
2010-10-25
86 Artikel
BenutzerIn

Hallo!

Ich habe einige Subroutinen in meinen Skripts erstellt. Diese Subroutinen wiederholen sich in diversen Skripten. Kann ich diese Subroutinen in einem Shelskript bündeln und diese in meine anderen Skripte einbinden und verwenden (wie z.B. in C)? Vielleicht so wie die Module mit use...

Danke für eure Antworten.
- +13 replies
- bianca
  
  2011-01-17 08:26
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Ja, das kann man.
  Du könntest die Sub einfach 1:1 in eine externe Datei legen und diese Datei beim Start des Hauptprogramms mit require "pfad/datei.pl" einbinden.
  Achte bei der externen Datei drauf, dass sie ein true zurückliefert. Das erreicht man am einfachsten durch ein 1; in der letzten Zeile nach allen sub's.
  10 print "Hallo"
  20 goto 10
  - +12 replies
  - la_dy82
    
    2011-01-17 10:08
    
    User since
    2010-10-25
    86 Artikel
    BenutzerIn
    
    2011-01-17T07:26:53 bianca
    Achte bei der externen Datei drauf, dass sie ein true zurückliefert. Das erreicht man am einfachsten durch ein 1; in der letzten Zeile nach allen sub's.
    
    Was ist, wenn meine subs Rückgabewere liefern?
    Geht das trotzdem mit 1;
    - GwenDragon
      
      2011-01-17 10:15
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Das hat nichts damit zu tun, ob deine Subroutinen was liefern.
      Ein eingebundenes Perlprogramm (ähnlich einem Modul) muss, wenn es mit require aufgerufen wird immer am Ende einen wahren Wert zurück liefern, deswegen das 1; am Ende des eingebundenes Perlprogramm.
      Siehe auch require:
      
      Quote
      The file must return true as the last statement to indicate successful execution of any initialization code, so it's customary to end such a file with 1; unless you're sure it'll return true otherwise. But it's better just to put the 1; , in case you add more statements.
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +10 replies
    - pq
      
      2011-01-17 10:16
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      die 1 gehört in die letzte zeile. die rückgabewerte kannst du so beibehalten.
      probiers doch einfach mal aus.
      
      ich würde das übrigens eher mit einem modul machen. ehe man sichs versieht, hat man so viele subs, dass man sie nach themen trennen will und nur einen teil benutzen. wenn du alles mit require und ohne packagenamen in dein script lädst, hast du irgendwann den namespace vollgemüllt.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      package Company::Mein::Modul; # datei Company/Mein/Modul.pm use strict; use warnings; use base 'Exporter'; our @EXPORT_OK = qw/ &sub1 &sub2 &sub3 ... /; sub sub1 { ... } ... 1;
      
      und im script einfach:
      
      Code (perl): (dl )
      
      1 2
      
      use Company::Mein::Modul qw/ &sub1 &sub3 /; sub3();
      
      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
      - Linuxer
        
        2011-01-17 11:10
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Hat es einen definierten (technischen) Grund, warum Du das & mit angibst?
        OK, es wird deutlicher, dass es sich um Subroutinen handelt, aber gibt es noch einen Grund, & explizit anzugeben?
        
        Es funktioniert prinzipiell auch ohne:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        package bar; use strict; use warnings; use base 'Exporter'; our @EXPORT_OK = qw( bar1 bar2 ); sub bar1 { return "bar1 was called."; } sub bar2 { return "bar2 was called."; } 1;
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9
        
        #!/usr/bin/perl # vim: set ts=4 sw=4 et sta: use strict; use warnings; use bar qw( bar1 ); print bar1(), $/;
        
        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!
        
        pq
        
        2011-01-17 11:14
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        nein, hat keinen technischen grund.
        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
      - +7 replies
      - bianca
        
        2011-01-17 11:29
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Hierzu eine Frage: Parst Perl die pm Datei in diesem Beispiel komplett durch, auch wenn ich beispielsweise nur sub1 haben will?
        Will darauf hinaus, ob sich das in der Geschwindigkeit gegenüber require anders verhält?
        10 print "Hallo"
        20 goto 10
        
        renee
        
        2011-01-17 11:47
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Ein "use" ist:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        BEGIN{ require Modul; Modul->import; }
        
        Perl parst das komplette Modul... Also auch bei "require".
        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/
        
        +5 replies
        
        pq
        
        2011-01-17 11:59
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        es ging darum zu verhindern, dass der main-namespace zugemüllt wird.
        
        und wie soll perl den anfang der nächsten sub finden, ohne zu parsen?
        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
        
        +4 replies
        
        la_dy82
        
        2011-01-17 12:07
        
        User since
        2010-10-25
        86 Artikel
        BenutzerIn
        
        Danke für eure Antworten!
        
        +3 replies
        
        la_dy82
        
        2011-01-18 07:32
        
        User since
        2010-10-25
        86 Artikel
        BenutzerIn
        
        Wie sieht es denn aus, wenn mehrere Skripte auf die subs gleichzeitig zugreifen? Da gibt es keine BVerzögerungen für die Verwendung der subs, oder?
        Diese subs werden bei jedem Skript-Aufruf quasi reinkopiert, oder?
        
        +2 replies
        
        bianca
        
        2011-01-18 07:36
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Nein, keine Verzögerungen. Höchstens insofern als das OS eine weitere Datei zusätzlich öffnen muss (Overhead) im Moment wo require ausgeführt wird. Aber wenn das bei Dir spürbar ist stimmt was mit dem OS nicht.
        Es verhält sich performancemäßig als ob die sub's im Hauptprogramm stehen würden.
        Mach an EINER Stelle im Hauptprogramm ganz am Anfang das require und Du kannst im gesamten Projekt auf die sub's zugreifen.
        10 print "Hallo"
        20 goto 10
        
        clms
        
        2011-01-18 10:46
        
        User since
        2010-08-29
        373 Artikel
        BenutzerIn
        
        2011-01-18T06:36:31 bianca
        Mach an EINER Stelle im Hauptprogramm ganz am Anfang das require und Du kannst im gesamten Projekt auf die sub's zugreifen.
        
        Dann würde ich statt require lieber use verwenden.
        
        Wenn das Modul ohnehin immer geladen werden soll, kann man das auch zur Compilezeit machen. Vorteil: perl -c überprüft die Syntax des eingebundenen Moduls gleich mit.
        
        require nutze ich eigentlich nur, wenn ich abhängig vom Programmablauf größere Modul(familien) nachladen will, z.B. zur Behandlung von bestimmten Ausnahmefällen. So kann ich mir dann u.U. in 90% der Skriptaufrufe das Laden des required Moduls ersparen.
        
        Oder gibt es noch andere Gründe require statt use zu verwenden?

View all threads created 2011-01-17 07:50.