Comment puis-je permettre à des options non définies lors de l'analyse args avec Getopt

Question

Si j'ai une ligne de commande comme:

my_script.pl -foo -WHATEVER 

Mon script connaît --foo, et je veux Getopt à définir la variable $opt_foo, mais je ne sais pas quoi que ce soit sur -WHATEVER. Comment puis-je demander à Getopt d'analyser les options dont je viens de parler, puis d'obtenir le reste des arguments dans une variable chaîne ou une liste?

Un exemple:

use strict; 
use warnings; 

use Getopt::Long; 

my $foo; 

GetOptions('foo' => \$foo); 

print 'remaining options: ', @ARGV; 

Ensuite, l'émission

perl getopttest.pl -foo -WHATEVER

donne

 
Unknown option: whatever 
remaining options: 

Answer 1

Vous devez configurer « pass_through option » via Getopt::Long::Configure("pass_through");

Ensuite, il prend en charge les options réelles (par exemple des choses en commençant par « - » et sans spécial « - » delimiter pour signifier la fin des options « réelles ») .

est ici citation perldoc:

• pass_through (désactivé par défaut)

  options qui sont inconnues, ambiguës ou fourni avec une valeur d'option non valide sont passés à travers en @ARGV au lieu d'être marqué comme les erreurs. Cela permet d'écrire des scripts wrapper qui ne traitent qu'une partie des arguments de ligne de commande fournis par l'utilisateur et de passer les options restantes à un autre programme.

Voici un exemple

$ cat my_script.pl 
#!/usr/local/bin/perl5.8 -w 

use Getopt::Long; 
Getopt::Long::Configure("pass_through"); 
use Data::Dumper; 
my %args; 
GetOptions(\%args, "foo") or die "GetOption returned 0\n"; 
print Data::Dumper->Dump([\@ARGV],["ARGV"]); 

$ ./my_script.pl -foo -WHATEVER   
$ARGV = [ 
      '-WHATEVER' 
     ]; 

Answer 2

ne sont pas les valeurs restantes (non analysées) simplement laissés dans @ARGV? Si votre contenu supplémentaire commence par des tirets, vous devez indiquer la fin de la liste des options avec un --:

#!/usr/bin/perl 
use strict; 
use warnings; 
use Getopt::Long; 
use Data::Dumper; 

my $foo; 
my $result = GetOptions ("foo" => \$foo); 
print Dumper([ $foo, \@ARGV ]); 

appeler ensuite:

my_script.pl --foo -- --WHATEVER 

donne:

$VAR1 = [ 
      1, 
      [ 
      '--WHATEVER' 
      ] 
     ]; 

PS . Dans MooseX::Getopt, les options "restantes" de la ligne de commande sont placées dans l'attribut extra_argv en tant que arrayref - donc je vous recommande de convertir!

Answer 3

Je pense que la réponse ici, malheureusement, est "non, il n'y a pas moyen de le faire exactement comme vous le demandez, en utilisant Getopt :: Long, sans analyser @ARGV par vous-même." Ether a une solution de contournement décente, cependant. C'est une caractéristique dans la mesure où la plupart des gens sont préoccupés par le fait que tout argument semblable à une option est capturé comme une erreur. Normalement, vous pouvez faire

GetOptions('foo' => \$foo) 
    or die "Whups, got options we don't recognize!"; 

pour capturer/empêcher les options bizarres d'être passé, et vous pouvez corriger l'utilisateur sur l'utilisation. Alternativement, vous pouvez simplement passer à travers et les ignorer.