Kommandozeile mit einem Schalter und zwei Argument: ein Argument fällt immer unter den Tisch - #69768 (Allgemeines zu Perl)

renee

2006-09-13 10:50

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

use vars qw($opt_d $opt_a $opt_h);

#
GetOptions("-a" => \$opt_a,
              "-d"  => \$opt_d,
              "-h"  => \$opt_h,);

help() if ($opt_h);

if ($opt_a){
   print "not implemented.";
}
elsif ($opt_d){
   my $base = shift(@ARGV);
   my $base2= shift(@ARGV);

    print $base;
    print $base2;
}

Lies Dir bitte mal diesen Wiki:

Artikel durch.

Wenn Du mal nicht nur reine Flags haben willst, sondern auch Argumente für die Optionen haben willst, dann muss es mal so aussehen:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

use vars qw($opt_d $opt_a $opt_h $argument);

#
GetOptions("-a" => \$opt_a,
              "-d"  => \$opt_d,
              "-s=s" => \$argument,
              "-h"  => \$opt_h,);

help() if ($opt_h);

if ($opt_a){
   print "not implemented.";
}
elsif ($opt_d){
   my $base = shift(@ARGV);
   my $base2= shift(@ARGV);

    print $base;
    print $base2;
}

if(defined $argument){
   print $argument;
}

meh unter

Getopt::Long.

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/