[Getopt::Long] getOptions - Fehlerermittlung bei gleicher Option (Fragen zu Perl-Modulen)

[thread]19794[/thread]

[Getopt::Long] getOptions - Fehlerermittlung bei gleicher Option

Tags: perl5 Ähnliche Threads

Leser: 9

Articles: hide open all | hide show old branches

+15 replies
bora99

2015-09-10 11:41
User since
2009-12-05
54 Artikel
BenutzerIn
Hallo,

bietet getOptions die Möglichkeit einen Fehler zu liefern, wenn die Option öfters angegeben wird ?
Bei meinem Beispiel wird kein Fehler geliefert

Beispiel:

testoption.pl -o option # in Ordnung
testoption.pl -o option -o option # ist nicht Ordnung
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#!/usr/bin/perl -w use strict; use Getopt::Long; my %Args = (); my $option = ""; my $help = 0; my $InOpts = GetOptions( \%Args, 'o|option=s' => \$option, 'h|help' => \$help ) or die "usage option ..."; print "$help\n"; print "Usage ..." if( ! $InOpts); print "help ..." if( $help );
- GwenDragon
  
  2015-09-10 11:55
  
  User since
  2005-01-17
  14532 Artikel
  Admin1
  
  Verschoben von Allgemeines zu Perl nach Fragen zu Perl-Modulen
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +2 replies
- GwenDragon
  
  2015-09-10 11:56
  
  User since
  2005-01-17
  14532 Artikel
  Admin1
  
  Was ist nicht in Ordnung? zweimal -o oder zweimal -o option ?
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - bora99
    
    2015-09-10 12:27
    
    User since
    2009-12-05
    54 Artikel
    BenutzerIn
    
    zweimal -o ist nicht in Ordnung.
- +10 replies
- GwenDragon
  
  2015-09-10 12:52
  User since
  2005-01-17
  14532 Artikel
  Admin1
  Getopt::Long hat da keine Grenze bei der es schreit, wenn zuviel Parameter drin sind.
  
  Da musst du die Werte als Array einlesen und die Anzahl der Werte prüfen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  use strict; use warnings; use Getopt::Long; my @option; my $InOpts = GetOptions( 'o|option:s' => \@option ) or die "usage option ..."; die "Too much -o!!! @option \n" if @option>1;
  
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +9 replies
  - bora99
    
    2015-09-10 13:02
    User since
    2009-12-05
    54 Artikel
    BenutzerIn
    
    vielen dank
    kleine anmerkung
    
    Code: (dl )
    
    print $#option
    
    liefert 2
    
    also
    
    Code: (dl )
    
    die "Too much -o!!! @option \n" if @option>2;
    - +8 replies
    - GwenDragon
      
      2015-09-10 13:24
      
      User since
      2005-01-17
      14532 Artikel
      Admin1
      
      $#... liefert den letzten Index im Array.
      
      Aber wieso > 2?
      Ich dachte, die Option darf nur einmal vorkommen!
      
      @option>2 bedeutet: scalar @option > 2 und das bedeutet Anzahl der Werte größer 2.
      Du sagtest doch -o -o ist nicht erlaubt!?
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +7 replies
      - bora99
        
        2015-09-10 14:08
        
        User since
        2009-12-05
        54 Artikel
        BenutzerIn
        
        Code: (dl )
        
        [b]$#[/b]... liefert den letzten Index im Array.
        
        dachte, daß dies Anzahl der Array Elemente liefert, habe es aus einem anderen Perl abgekupfert, wo $#ARGV vorgekommen ist ...
        
        Quote
        Aber wieso > 2?
        Ich dachte, die Option darf nur einmal vorkommen!
        
        @option>2 bedeutet: scalar @option > 2 und das bedeutet Anzahl der Werte größer 2.
        Du sagtest doch -o -o ist nicht erlaubt!?
        
        dem ist natürlich so, jetzt habe ich wie folgt getestet
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
        
        #!/usr/bin/perl -w use strict; use Getopt::Long; my %Args = (); my @option = ""; my $option = ""; my $help = 0; print "ARGV: @ARGV\n"; my $InOpts = GetOptions( \%Args, 'o|option=s' => \@option, 'h|help' => \$help ) or die "usage option ..."; print "Usage ..." if( ! $InOpts); print "help ..." if( $help ); my $array_anz = @option; print "ArrayInfo: Optionen: @option ArrayAnz: $array_anz \$#: $#option\n"; print "too much -o @option !!\n" if (@option>1);
        
        Test:
        testoption.pl -o option
        Output:
        ArrayInfo: Optionen: option ArrayAnz:2 $#: 1
        too much -o option !!
        
        Test:
        testoption.pl -o option -o option
        ArrayInfo: Optionen: option option ArrayAnz: 3 $#: 2
        too much -o option option !!
        
        darum habe ich @option > 2 verwendet
        
        +5 replies
        
        GwenDragon
        
        2015-09-10 14:38
        
        User since
        2005-01-17
        14532 Artikel
        Admin1
        
        Da hast du falsch abgekupfert!
        C:\>perl -e "print $#ARGV" 1 0 C:\>perl -e "@A=(1..10);print $#A" 9 C:\>perl -e "$A[99]=11;print $#A" 99
        
        $# liefert bei Arrays den letzten benutzten Index.
        
        //EDIT:
        
        Und wenn du in Zeile 7 schon das Array @option mit einem Leerstring belegst, kann das so wie ich zeigte nicht mehr klappen mit @option>1.
        
        Schau dir mal lieber vorhrr an was da drin ist mit:
        
        Code (perl): (dl )
        
        1 2
        
        use Data::Dumper, print Dumper (\@options);
        
        Ich kann nicht nachvollziehen, warum du das nicht so machst wie ich zeigte.
        Last edited: 2015-09-10 14:49:43 +0200 (CEST)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +4 replies
        
        bora99
        
        2015-09-10 16:24
        
        User since
        2009-12-05
        54 Artikel
        BenutzerIn
        
        sorry, habe das Array-Handling nicht sauber durchgeführt , auch die Initalisierung, so jetzt sollte es passen
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
        
        #!/usr/bin/perl -w use strict; use Getopt::Long; my %Args = (); my @option = (); my $option = ""; my $help = 0; print "ARGV: @ARGV\n"; my $InOpts = GetOptions( \%Args, 'o|option=s' => \@option, 'h|help' => \$help ) or die "usage option ..."; print "Usage ..." if( ! $InOpts); print "help ..." if( $help ); my $array_anz = @option; print "ArrayInfo: Optionen: @option ArrayAnz: $array_anz \$#: $#option\n"; print "too much -o @option !!\n" if (@option>1);
        
        habe mir gerade ausgeborgt ein Uralt Perl Buch , wo drinnen steht
        
        Code: (dl )
        
        1 2
        
        if ( ($#ARGV + 1) < 1 ) { die "$0 erfordert ein Argument.\n"; } mit Erklärung: keine Argument ...
        
        sollte ja heissen
        
        Code: (dl )
        
        if ( @ARGV == 0 ) { die "$0 erfordert ein Argument.\n"; }
        
        oder ?
        
        Linuxer
        
        2015-09-10 16:48
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        @ARGV == 0 finde ich bei der Auswahl besser. Noch besser finde ich: 0 == @ARGV
        
        Wenn man beim Tippen mal aus versehen nur ein = anstatt eines == eingegeben hat, kommt direkt ein Fehler, der darauf hinweist, weil dann eine Zuweisung an einen konstanten Wert stattfinden soll. Klappt aber nur, solange mit konstanten Werten verglichen wird.
        
        Schnelltest (mit Tippfehler = anstatt ==):
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9
        
        ### Oops! damit ist dann auch der alte Inhalt von @ARGV futsch $ perl -E 'say "Array is leer." if @ARGV = 0' Array is leer. $ perl -E 'say "Array is leer." if 0 = @ARGV' Can't modify constant item in scalar assignment at -e line 1, at EOF Execution of -e aborted due to compilation errors. $
        
        Oder man lässt den Vergleich weg:
        
        Code (perl): (dl )
        
        1 2 3
        
        if ( !@array ) { # keine Elemente im Array # mach Meldung }
        
        Last edited: 2015-09-10 16:50:29 +0200 (CEST)
        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!
        
        Raubtier
        
        2015-09-10 16:56
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        2015-09-10T14:24:35 bora99
        sorry, habe das Array-Handling nicht sauber durchgeführt , auch die Initalisierung, so jetzt sollte es passen
        
        Warum initialisierst du die Variablen überhaupt? Neue Arrays sind automatisch leer, Hashes ebenso und Skalare sind undef.
        
        Ein my @array; ist also völlig ausreichend, my @array = (); tut nichts anderes.
        
        Zweite Frage noch: wozu hast du noch my $option = ""; im Code? Du benutzt diese Variable ansonsten ja nicht weiter.
        
        Quote
        
        Code: (dl )
        
        1 2
        
        if ( ($#ARGV + 1) < 1 ) { die "$0 erfordert ein Argument.\n"; } mit Erklärung: keine Argument ...
        
        sollte ja heissen
        
        Code: (dl )
        
        if ( @ARGV == 0 ) { die "$0 erfordert ein Argument.\n"; }
        
        oder ?
        
        Naja, scalar(@array) == $#array + 1 ist eine Identität. Da ein Array nicht weniger als null Elemente haben kann, sind beide if-Abfragen austauschbar.
        
        Ich hätte wahrscheinlich die "$0 erfordert mindestens ein Argument.\n" unless @ARGV; geschrieben.
        Last edited: 2015-09-10 16:58:26 +0200 (CEST)
        
        GwenDragon
        
        2015-09-10 18:28
        
        User since
        2005-01-17
        14532 Artikel
        Admin1
        
        Das alte Perl-Buch macht es schon unverständlicher so mit $#ARGV.
        $#... liefert bei einem undefinierten ("leeren") Array den Wert -1.
        
        Wenn du es nachvollziehbarer willst, schreibe lieber:
        
        Code: (dl )
        
        1 2 3
        
        if (scalar @ARGV == 0) { # scalar @ARGV liefert anzahl der Werte im Array ...; }
        
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        Linuxer
        
        2015-09-10 15:45
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Code: (dl )
        
        my @option = "";
        
        Warum initialisierst Du den Array mit einem Leerstring? Sollte das nicht ein leerer Array sein? Lass doch mal die Zuweisung weg, dann bleibt es ein leeres Array, das erst durch GetOptions() befüllt würde.
        
        edit:
        Ups, hab übersehen, dass das GwenDragon auch schon angemerkt hatte...
        Last edited: 2015-09-10 15:46:45 +0200 (CEST)
        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!
- betterworld
  
  2015-09-10 18:31
  User since
  2003-08-21
  2613 Artikel
  ModeratorIn
  Ich rufe GetOptions immer so auf:
  
  Code (perl): (dl )
  
  1 2 3
  
  GetOptions( # ... ) or exit 1;
  
  Denn wenn irgend etwas nicht geparst werden kann, gibt GetOptions normalerweise selbst schon eine Fehlermeldung aus, wirft aber keine Exception. Ich finde dieses Verhalten eigentlich ein bisschen unsinnig, denn wenn man das "exit" vergisst, dann wirkt die Fehlermeldung auf den Benutzer immer so, als ob das Programm eigentlich weiß, dass es falsch aufgerufen wurde, und der Benutzer wundert sich dann, dass das Programm trotzdem weitermacht. Und die Standardfunktion zur Fehlerbehandlung ("die") sollte man auch nicht benutzen, weil dann zwei Fehlermeldungen nacheinander ausgegeben werden.
  Lieblingsmodule: IPC::System::Simple, Path::Class

View all threads created 2015-09-10 11:41.