getopts: Fehlermeldung nicht initialisierte Variablen, usage einrichten (Allgemeines zu Perl)

[thread]15719[/thread]

getopts: Fehlermeldung nicht initialisierte Variablen, usage einrichten

Leser: 21

Articles: hide open all | hide show old branches

+8 replies
la_dy82

2010-12-08 12:14

User since
2010-10-25
86 Artikel
BenutzerIn

Hallo!

Ich möchte eine Hilfe für die Bedienung des Skripts erstellen.
Habe auch schon den Parameter -h unter getopts eingefügt und versucht zu verarbeiten.
Wenn ich jedoch nur den Parameter test.pl -h aufrufe, dann bekomme ich Fehlermeldungen, dass einige Variablen nicht initialisiert sind. Das bedeutet, dass der Anweisungsblock, der mit den anderen Parametern -Z Wert1 -T Wert 2 nicht asgeführt wird.

Meine Struktur:
{Aufruf Block1 für Verarbeitung der Parameter -T und -Z}
{Aufruf Block2 für Hilfe zum Script}

Hat jemand eine Idee?

Oder: Wie kann man unabhängig ein Script erstellen, welche Parameter verarbeitet, egal od diese eingegeben sind oder nicht? d.h. wenn ich Parameter -T eingebe, dass mir an einer anderen Stelle keine Warnung angezeigt wird, wenn ich Parameter -Z nicht angebe (der Parameter -Z wird aber in einer if-Abfrage nach einem Wert abgefragt, ist aber nicht zugewiesen).
???

/Modedit GwenDragon: Titel in Zusammenhang mit Inhalt gebracht
Last edited: 2010-12-08 14:22:03 +0100 (CET)
- +2 replies
- la_dy82
  
  2010-12-08 13:10
  
  User since
  2010-10-25
  86 Artikel
  BenutzerIn
  
  Habe es herausgefunden!!
  Es ist nur eine Warnung, da ich
  -use warnings;
  -use diagnostics;
  benutze. Daher die Warnung. Ist ja auch logisch, da der erste Block nicht ausgeführt wird und die Varablen auch nicht zugewiesen sind.
  Wenn man use w. und use d. entfernt und das script aufruft, dann funktioniert alles wunderbar.
  
  :-)
  - topeg
    
    2010-12-08 13:18
    
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    Wenn man die warungen entfernt sind die Fehler nicht weg. Es hat schon ein Grund warum "warnings" hier eine Meldung macht!
- +5 replies
- topeg
  
  2010-12-08 13:16
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Ich schaue in meine Glaskugel und sehe das du Getopt::Std zum Parsen der Kommandozeile benutzt.
  Beispiel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #!/usr/bin/perl use strict; use warnings; use Getopt::Std; use Data::Dumper; my %opts; getopts('hif:', \%opts) || usage(); usage() if(exists($opts{h})); print Dumper(\%opts); sub usage { print "USAGE: $0 -h -i -f <file>\n"; exit; }
  
  Variablen sind undefiniert wenn ihnen keine werte zugewiesen wurden.
  "defined" dient zum testen, ob eine Variable einen Wert enthält.
  
  Getopt::Std kann Optionen, die keine Werte erwarten, auch keine Zuweisen, sie sind also "undef". Um heraus zu finden ob solch eine boolsche Option gesetzt wurde, musst du mit "exists" im Hash schauen ob der Eintrag gesetzt wurde. Siehe Beispiel.
  
  Korrektur:
  Getopt::Std setzt boolsche Optionen auf "1"
  man kann also auch schreiben:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #!/usr/bin/perl use strict; use warnings; use Getopt::Std; use Data::Dumper; my %opts; getopts('hif:', \%opts) || usage(); usage() if($opts{h}); # <== ohne exists print Dumper(\%opts); sub usage { print "USAGE: $0 -h -i -f <file>\n"; exit; }
  
  Ich vermute mal die "undef" werte kommen von einer Zuweiseung wie:
  
  Code (perl): (dl )
  
  my $file=$opts{f}
  
  Da ist "$file" undef wenn wenn die option "-f" nicht genutzt wurde. "Dumper" zeigt das einen Schlüssel "f" nicht im Hash ist.
  Last edited: 2010-12-08 13:27:29 +0100 (CET)
  - +4 replies
  - la_dy82
    
    2010-12-08 14:35
    User since
    2010-10-25
    86 Artikel
    BenutzerIn
    
    2010-12-08T12:16:47 topeg
    Ich vermute mal die "undef" werte kommen von einer Zuweiseung wie:
    
    Code (perl): (dl )
    
    my $file=$opts{f}
    
    Da ist "$file" undef wenn wenn die option "-f" nicht genutzt wurde.
    
    Das ist richtig. Wenn ich einfach test.pl -h aufrufe, dann werden
    -Z -T nicht mit Werten gefüllt. Das bedeutet, dass ich aber im Code trotzdem im Alternativzweig die Werte abfragen muss (damit diese auch ausgeführt werden, wenn dieser Zweig genutzt wird: test.pl -Z Wert1 -T Wert 2).
    Und hier wird nämlich die Warnung angezeigt, dass in dem Alternativzweig keine Werte zugewiesen sind, da ich ihn auch nicht nutze und somit übersprungen wird.
    
    Also ist es quasi gar kein Fehler?
    - +3 replies
    - pq
      
      2010-12-08 15:06
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2010-12-08T13:35:49 la_dy82
      Und hier wird nämlich die Warnung angezeigt, dass in dem Alternativzweig keine Werte zugewiesen sind, da ich ihn auch nicht nutze und somit übersprungen wird.
      
      das ergibt keinen sinn.
      warnings warnt mit "uninitialized", wenn irgendwo mit einer variable oder einem wert gearbeitet wird, der undefiniert ist.
      
      perl bzw. warnings *kann* gar nicht ahnen, ob in einem zweig, der gar nicht ausgeführt wird, etwas undef wäre.
      
      im übrigen sind das warnungen, keine fehler, was aber nicht bedeutet, dass du warnings einfach ausschaltest und gut is. die warnungen haben schon ihren sinn und sind in den meisten fällen hinweise auf falsches design.
      
      mir fällt auf, dass du hier sehr viel in prosa beschreibst, sogar die fehlermeldung erzählst du nach, statt sie einfach zu kopieren.
      warum postest du nicht ein stückchen code und die genaue fehlermeldung? das problem ist, wenn neulinge code und fehlermeldungen beschreiben, machen sie u.u. fehler in der beschreibung (so sagst du z.b., dass du eine meldung über einen if-zweig bekommst, der gar nicht ausgeführt wird).
      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
      - la_dy82
        
        2010-12-08 15:38
        
        User since
        2010-10-25
        86 Artikel
        BenutzerIn
        
        Danke für die Tipps- habe es mit exists/defined hinbekommen.
        
        Das Problem am posten ist, dass der Code zu lang ist, um ihn hier zu kopieren. :-(
        
        Danke für euer Engagement- hat mir weitergeholfen.
        
        pq
        
        2010-12-08 15:47
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2010-12-08T14:38:19 la_dy82
        Das Problem am posten ist, dass der Code zu lang ist, um ihn hier zu kopieren. :-(
        
        das ist er meistens. programmieren lernt man aber u.a. auch dadurch, dass man langen code so kürzt, dass er das verhalten bzw. die fehlermeldung reproduziert.
        
        und die meldung selbst ist sicher nicht zu lang, um sie zu posten. warum erzählst du sie aus deiner erinnerung nach? wär mir schon viel zu aufwendig.
        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

View all threads created 2010-12-08 12:14.