Comment puis-je obtenir Getopt :: Long de Perl pour savoir si les arguments sont manquants?

Question

J'utilise le module Getopt::Long de Perl pour analyser les arguments de la ligne de commande. Cependant, il semble qu'il renvoie une valeur vraie même si certains des arguments sont manquants. Est-il possible de dire si c'est le cas?

Answer 1

Dans l'ancienne version de Getopt :: Long, vous ne pouvez pas le faire directement - comme l'a dit Jonathan, vous devez vérifier vos besoins pour undef. Cependant, à mon humble avis ceci est une bonne chose - qu'est-ce qu'un paramètre "requis"? Souvent, on a des paramètres qui sont requis dans un cas et pas un autre - l'exemple le plus courant étant le pouce endolori de l'option --help. Ce n'est pas obligatoire, et si l'utilisateur l'utilise, il ne sait probablement pas ou ne passera aucun des autres paramètres "requis".

J'utilise cet idiome dans une partie de mon code (bien, je faisais, jusqu'à ce que je suis passé à l'aide MooseX::Getopt):

use List:MoreUtils 'all'; 

Getopt::Long::GetOptions(\%options, @opt_spec); 
print usage(), exit if $options{help}; 
die usage() unless all { defined $options{$_} } @required_options; 

Même avec MooseX :: Getopt Je ne mets pas mes attributs à required => 1 , encore une fois à cause de l'option --help. Au lieu de cela, je vérifie la présence de tous les attributs dont j'ai besoin avant de passer au corps principal de l'exécution du programme.

package MyApp::Prog; 
use Moose; 
with 'MooseX::Getopt'; 

has foo => (
    is => 'ro', isa => 'Str', 
    documentation => 'Provides the foo for the frobnitz', 
); 
has bar => (
    is => 'ro', isa => 'Int', 
    documentation => 'Quantity of bar furbles to use when creating the frobnitz', 
); 

# run just after startup; use to verify system, initialize DB etc. 
sub setup 
{ 
    my $this = shift; 

    die "Required option foo!\n" unless $this->foo; 
    die "Required option bar!\n" unless $this->bar; 

    # ... 
} 

Answer 2

Les options sont facultatives, d'où le nom 'Getopt'.

Vous vérifiez les valeurs d'option définies par Getopt::Long; Si l'un des plus importants est 'undef', il a été manqué et vous pouvez l'identifier.

La valeur de retour vous indique qu'il n'y a pas eu de gaffes horribles dans la ligne de commande. Qu'est-ce qui constitue une erreur dépend de la façon dont vous utilisez Getopt::Long, mais un classique serait que la ligne de commande contient -o output mais la commande ne reconnaît pas une option -o.