Brauche Tipp für Programmstruktur (gelöst) (Allgemeines zu Perl)

[thread]15472[/thread]

Brauche Tipp für Programmstruktur [gelöst]

Leser: 25

Articles: hide open all | hide show old branches

+16 replies
Gast Mampfgnom

2010-09-20 11:41

Hallo.

Für meine Arbeit soll ich mehrere Skripte schreiben und möchte diese gerne in einem Programm zusammenfügen. Das heißt, ich habe skript1.pl, skript2.pl, usw und würde jetzt gerne ein Programm Menu.pl schreiben, in dem ich meinetwegen über mehrere Buttons die einzelnen Skripte ausführen kann. Also wenn ich auf Button 1 drücke, startet er skript1.pl und führt alles aus, was dort drinne steht.

Meine Frage ist nun, wie implementiere ich die einzelnen Skripte am besten? Ich habe mir in meinem Perl Buch Pakete und OOP angeschaut, sehe aber keinen Weg damit mein Ziel zu erreichen. Habt ihr vielleicht eine Idee für mich?

Grüße,

Niels
Last edited: 2010-09-20 12:35:29 +0200 (CEST)
- pq
  
  2010-09-20 12:35
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  Move from Fragen zu Perl-Modulen to Allgemeines zu Perl
  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
- bianca
  
  2010-09-20 13:20
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Vielleicht ist der Befehl require dafür dienlich? Damit kann man zumindest unter bestimmten Voraussetzungen andere Scripte "nachladen" und darin enthaltene Funktionen nutzen bzw. subs starten etc.
  10 print "Hallo"
  20 goto 10
- renee
  
  2010-09-20 13:21
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Müssen die beiden Skripte wirklich als eigenständige Programme weiterexistieren oder kann man das auch anders lösen?
  
  Wenn es Skripte bleiben müssen, schau Dir mal system (perldoc -f system) an...
  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/
- havi
  
  2010-09-20 13:27
  
  User since
  2003-08-04
  2036 Artikel
  BenutzerIn
  
  Müssen es unbedingt mehrere Skripte sein?
  
  Kannst du nicht die einzelnen Funktionen als Routinen schreiben, oder
  evtl. noch besser als Module...
  Perl-Zeitung - http://perl-zeitung.at/
  Perl-Blog - http://usr-bin-perl.blogspot.com/
- +11 replies
- pq
  
  2010-09-20 14:31
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  schau mal einer an, um 12:25:45 bei perlboard.de als crosspost gepostet (bitte unsere FAQs lesen!), bei perlboard.de sich selbst beantwortet und die 3 antworten hier komplett ignoriert.
  
  ich kapier das einfach nicht. manche scheinen es viel cooler zu finden, gar keine antworten zu bekommen und den thread im forum mit den vielen antworten einfach verschimmeln zu lassen. ist ja nicht das erste mal, dass bei crossposts, bei denen es hier antworten gab und woanders nicht, der thread hier vom fragesteller ignoriert wird.
  
  leute, wollt ihr hilfe oder einfach nur mal verbreiten, mit was für interessanten themen ihr euch grad beschäftigt?
  ich möchte es wirklich verstehen, das phänomen.
  
  die antwort, @Mampfgnom, die du dir in perlboard.de gegeben hast, ist übrigens die steinzeit-variante. man sollte lieber module erstellen und subroutinen daraus aufrufen statt mit do() zu arbeiten. aber vermutlich liest du das hier ja eh nicht mehr, für dich ists ja jetzt erledigt.
  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
  - +10 replies
  - pq
    
    2010-09-20 18:31
    
    User since
    2003-08-04
    12209 Artikel
    Admin1
    
    Splitted to Doppelposts und Kommunikation
    
    Original message by 'Mampfgnom':
    
    Quote
    An alle, die meine Frage ernsthaft beantwortet hab...
    
    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
    - +9 replies
    - pq
      
      2010-09-20 18:36
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      2010-09-20T16:31:02 pq
      Splitted to Doppelposts und Kommunikation
      
      Original message by 'Mampfgnom':
      
      Quote
      An alle, die meine Frage ernsthaft beantwortet haben . . . danke. Ich glaube ich werde es jetzt doch mal mit Subroutinen und Paketen probieren, weil ich auch Argumente an die Skripte übergeben muss. Ich werde jetzt die Skripte als *.pm speichern, das ganze in eine Routine packen und im Main Programm mit "use skript1" aufrufen. Das sollte doch klappen oder?
      
      ja genau. am besten mit package-namen:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13
      
      package Modul::Name; # datei Modul/Name.pm use strict; use warnings; sub foo { ... } # im script: use Modul::Name; Modul::Name::foo();
      
      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
      - +8 replies
      - Gast Mampfgnom
        
        2010-09-21 08:39
        
        Hi.
        
        Muss ich genau deinen Syntax benutzen bei der Implementierung? Er bringt bei mir folgende Fehlermeldung:
        
        temp_mat13.pm did not return a true value at main.pl line 5.
        BEGIN failed--compilation aborted at main.pl line 5.
        
        Auf line 5 in main.pl steht:
        
        Code: (dl )
        
        use temp_mat13
        
        temp_mat13.pm enthält:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9
        
        package temp_mat13; use Tk; sub skript1{ . . . }
        
        Muss ich die Schreibweise mit den Doppelpunkten benutzen? In meinem Perlbuch steht was von der Exporter Funktion. Muss ich die vielleicht erst anwenden?
        
        Last edited: 2010-09-21 09:04:34 +0200 (CEST)
        
        +5 replies
        
        nepos
        
        2010-09-21 09:18
        
        User since
        2005-08-17
        1420 Artikel
        BenutzerIn
        
        Nein, du musst einfach ans Ende deiner .pm File ein 1; hängen. Dann sollte das klappen.
        
        +4 replies
        
        Gast Mampfgnom
        
        2010-09-21 10:26
        
        Super Danke das war es.
        
        Verstehe ich das richtig, dass ein Modul/Paket irgend was zurückgeben muss, weil es sonst diese Fehlermeldung bringt? Wäre die 1 also redundand, wenn ich in der *.pm am Ende ein return() benutze?
        Last edited: 2010-09-21 10:32:04 +0200 (CEST)
        
        +2 replies
        
        bianca
        
        2010-09-21 10:34
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        redundant nicht, da schon beim use etwas zurückkommen muss. Das täte es bei return ja nicht.
        Die 1 muss da immer hin.
        10 print "Hallo"
        20 goto 10
        
        renee
        
        2010-09-21 10:44
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Es muss ein "wahrer" Wert zurückgegeben werden. In Perl kann vieles "wahr" sein. In den meisten Fällen schreibt man "1;". Das ist kurz und überall bekannt.
        
        Es gibt aber auch Module, die z.B. einen String zurückgeben - siehe http://returnvalues.useperl.at/
        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/
        
        GwenDragon
        
        2010-09-21 10:37
        
        User since
        2005-01-17
        14812 Artikel
        Admin1
        
        Ein Paket muss immer ein 1 zurückgeben, sonst funktioniert use nicht.
        
        Code (perl): (dl )
        
        use Module;
        
        ist nämlich gleichbedeutend mit
        
        Code (perl): (dl )
        
        BEGIN { require Module; import Module; }
        
        Und require braucht ein
        
        Code: (dl )
        
        1;
        
        am Ende des Moduls, um zu erkennen, dass das Modul korrekt geladen wurde.
        Last edited: 2010-09-21 10:39:09 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        pq
        
        2010-09-21 10:51
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        die 1 hatte ich doch glatt vergessen.
        liegt vermutlich daran, dass ich in meinem editor (vim) beim anlegen eines neuen moduls ein muster laden lasse, das schon package, strict, warnings und die 1 am ende beinhaltet.
        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
        
        Gast Mampfgnom
        
        2010-09-21 12:49
        
        Okay Danke.
        Ich bin mittlerweile auf eine andere kleine Gemeinheit gestoßen, werde aber einen neuen Beitrag im perl/Tk Bereich erstellen, weil es dort wahrscheinlich besser reinpasst.
        Last edited: 2010-09-21 12:53:15 +0200 (CEST)

View all threads created 2010-09-20 11:41.