bei Skript aufruf parameter -h (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-12-29 10:08:22
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]14523[/thread]

submit to reddit

bei Skript aufruf parameter -h

Leser: 18

Articles: hide open all | hide show old branches

+15 replies
PerlAnfaenger

2010-01-21 09:59

User since
2010-01-15
19 Artikel
BenutzerIn

Hallo alle miteinander,

ich habe ein fertiges Skript bei dem aber die Möglichkeit bestehen soll bei dem Aufruf über die Konsole noch ein -h (also Hilfe aufrufen) dahinter zu setzten.
Da ich sowas von ein Anfänger bin und ich in der großen Suchmaschine nichts gefunden habe, dachte ich, ich wende mich an euch.
Wie baue ich in mein Skript ein, dass bei der Angabe von-h ein Hilfetext ausgegeben wird?

Vielen Dank im Vorraus!
- +5 replies
- bianca
  
  2010-01-21 10:03
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3 4 5
  
  #!/usr/bin/perl use strict; use warnings; if ($ARGV[0] eq '-h') { print "Hilfe...." }
  
  Du findest die Übergabeparameter im Array @ARGV
  10 print "Hallo"
  20 goto 10
  - +4 replies
  - PerlAnfaenger
    
    2010-01-21 10:08
    
    User since
    2010-01-15
    19 Artikel
    BenutzerIn
    
    Ha Einwandfrei!
    Danke für die schnelle Hilfe =)
    - +3 replies
    - bianca
      
      2010-01-21 10:12
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Bitte änderes es zur Sicherheit nochmal ab:
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      #!/usr/bin/perl use strict; use warnings; if (defined $ARGV[0] && $ARGV[0] eq '-h') { print "Hilfe...." }
      
      Sonst Fehler, wenn kein -h!
      10 print "Hallo"
      20 goto 10
      - +2 replies
      - PerlAnfaenger
        
        2010-01-21 10:19
        
        User since
        2010-01-15
        19 Artikel
        BenutzerIn
        
        Sonst Fehler wenn kein -h heißt soviel wenn ich ausversehen verutsche und ein -j dahinter setze?
        
        bianca
        
        2010-01-21 10:22
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Nein, es kommt ein use of uninitialized value, wenn garkein Parameter angegeben wird.
        Natürlich nur, wenn Du auch schön brav use warnings verwendest :)
        
        Edit: ~s/strict/warnings/
        Last edited: 2010-01-21 10:24:30 +0100 (CET)
        10 print "Hallo"
        20 goto 10
- +2 replies
- GwenDragon
  
  2010-01-21 10:18
  
  User since
  2005-01-17
  14761 Artikel
  Admin1
  
  Es gibt auch das Modul GetOpt-Long zum bequemen Einlesen von Switches.
  Das hat auch den Vorteil, das eine ganze Kette von Switches eingegeben werden kann und trotzdem darin der Hilfeaufruf vorkommen darf.
  
  Oft ruft man ein Skript auf mit mehreren Parametern und es klappt nicht. Dann mache ich es so, dass ich in der Shell zu diesem Befehl mit der History wieder anzeige und einfach ein -? oder -h angehänge, um die Hilfe aufzurufen.
  Last edited: 2010-01-21 10:21:51 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - murphy
    
    2010-01-21 14:26
    
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    Für alleinstehende Skripte, die sich selbst dokumentieren sollen, finde ich auch noch Pod::Usage in Kombination mit Getopt::Long sehr praktisch.
    When C++ is your hammer, every problem looks like your thumb.
- +7 replies
- renee
  
  2010-01-21 10:19
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Wenn Du in Zukunft noch weitere Parameter für das Skript einbauen willst, dann würde ich Dir raten, ein Modul wie z.B. Getopt::Long zu verwenden:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  #!/usr/bin/perl use strict; use warnings; use Getopt::Long; GetOptions( 'h' => \my $help, # weitere Optionen, z.B. 'f=s' => \my $filename, # verlangt einen string, z.B. -f hallo.pdf 's=n' => \my $size, # verlangt eine Zahl, z.B. -s 33 ); if ( $help ) { print "Hilfe..."; exit; } print "File: $filename -> Size: $size\n";
  
  Edit: weiter Beispieloptionen eingefügt
  Last edited: 2010-01-21 10:21:08 +0100 (CET)
  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/
  - +6 replies
  - PerlAnfaenger
    
    2010-01-21 10:21
    
    User since
    2010-01-15
    19 Artikel
    BenutzerIn
    
    Das ist natürlich sehr praktisch! Zur zeit brauche ich aber nur mal das -h aber ich werds mir auf jeden fall als Kommentar in mein Skript schreiben, dass es diese Möglichkeit auch gibt!
    Vielen Dank!
    - +5 replies
    - pq
      
      2010-01-21 10:28
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      Ich kann mich den anderen nur anschliessen. Getopt::Long sollte man möglichst früh einsetzen, denn erfahrungsgemäss erweitert man fast jedes Skript irgendwann durch weitere Parameter.
      Ich kann dir gar nicht sagen, wie ärgerlich ich es finde, alte Steinzeitskripte zu übernehmen, die selber mit @ARGV rumfuchteln. Hab ich schon oft genug beruflich mit zu tun gehabt.
      
      edit: als weiteren Vorteil bietet Getopt::Long dir die Möglichkeit, sowohl bei --help als auch -h automatisch dasselbe zu tun.
      Last edited: 2010-01-21 10:30:30 +0100 (CET)
      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
      - GwenDragon
        
        2010-01-21 12:09
        
        User since
        2005-01-17
        14761 Artikel
        Admin1
        
        Wenn ein Skript geschrieben werden soll, das komfortabel Parameter verwendet, kommt niemand um Getopt::Long herum.
        Ich bekam auch schon öfters Schreikrämpfe bei Skripten aus dem Geschäftsumfeld, die @ARGV verwendeten, sich sonstwie was abbrachen (anders kann eine es nicht nennen) und nicht umgeschrieben (nichtnachvollziehbar!) werden durften.
        Als ich zu Beginn meiner Perl-Lehrzeit Getopt-Long entdeckte war ich heilfroh, nur mit ARGV rumzuschandeln ist eher was für K&R-C-Freaks.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        Crian
        
        2010-01-21 12:58
        
        User since
        2003-08-04
        5872 Artikel
        ModeratorIn
        
        2010-01-21T11:09:27 GwenDragon
        nur mit ARGV rumzuschandeln ist eher was für K&R-C-Freaks.
        
        He! Dabei hab ich damals verstanden, was Pointer sind und warum vier Sterne vor einer Variablen manchmal Sinn machen =)
        s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
        
        use strict; use warnings; Link zu meiner Perlseite
        
        GwenDragon
        
        2010-01-21 13:06
        
        User since
        2005-01-17
        14761 Artikel
        Admin1
        
        Ich war heilfroh nicht mehr C machen zu müssen. Klar habe ich diese wundervolle Referenzerei von C kapiert, aber wozu das Hirn verdrehen, wenn es Perl und andere Hochsprachen (K&R C ist keine) gibt. :)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        sid burn
        
        2010-01-21 13:12
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Quote
        Wenn ein Skript geschrieben werden soll, das komfortabel Parameter verwendet, kommt niemand um Getopt::Long herum.
        
        Naja es gibt ja auch einen Haufen von anderen Getopt::* Modulen die man nutzen kann. Insgesamt nutze ich zwar auch immer Getopt::Long und würde es so auch erstmal weiter empfehlen. Aber nur weil es ein Core Modul ist, die anderen Module meist auch nicht sehr viel besser sind, und weil ich bisher noch keine Zeit hatte meine eigene Idee in ein Getopt::* Modul umzuwandeln.
        
        Ansonsten finde ich auch Getopt::Long zumindest für meine ansprüche zu low-level, aber immerhin ist es ein anfang.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

View all threads created 2010-01-21 09:59.