Comment détecter la valeur d'option non valide

Question

J'ai un script perl qui devrait analyser les éléments suivants:

prog -t -p xyz "ab" -cm xyz.cmd -co xyz.config

Mais Je veux à l'erreur quand j'entre

prog t xyz -pab -cm xyz.cmd -co xyz.config

(Parce que -p est suivie a et b sans les guillemets). J'utilise Getopt :: Long pour traiter les arguments de la ligne cmd. Comment puis-je attraper la situation et l'erreur ci-dessus?

Merci!

Answer 1

Vous pouvez simplement vérifier s'il ne vous reste plus d'options.

use Getopt::Long qw(); 

my ($opt_t, $opt_p, $opt_cm, $opt_co); 

sub parse_args { 
    Getopt::Long::Configure(qw(posix_default)); 

    ($opt_t, $opt_p, $opt_cm, $opt_co) =(); 

    Getopt::Long::GetOptions(
     'h|help|?' => \&help, 
     't=s' => \$opt_t, 
     'p=s' => \$opt_p, 
     'cm=s' => \$opt_cm, 
     'co=s' => \$opt_co, 
    ) 
     or usage(); 

    @ARGV == 0 
     or usage("Too many arguments."); 
} 

{ 
    parse_args(); 
    ... 
} 

sortie (en utilisant le usage fourni ci-dessous):

$ ./prog -t xyz -p a b -cm xyz.cmd -co xyz.config 
Too many arguments. 
Try `prog --help' for more information. 

---

En aparté, des recommandations pour la mise en œuvre de help et usage:

use File::Basename qw(basename); 

sub help { 
    my $prog = basename($0); 
    print("$prog [options]\n"); 
    print("$prog --help\n"); 
    print("\n"); 
    print("Options:\n"); 
    ... 
    exit(0); 
} 

sub usage { 
    my $prog = basename($0); 
    if (my ($msg) = @_) { 
     chomp($msg); 
     warn("$msg\n"); 
    } 

    warn("Try `$prog --help' for more information.\n"); 
    exit(1); 
}