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

bora99

2015-09-10 16:24

User since
2009-12-05
54 Artikel
BenutzerIn
[default_avatar]

sorry, habe das Array-Handling nicht sauber durchgeführt , auch die Initalisierung, so jetzt sollte es passen

Code: (dl )

#!/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 ?