Comment puis-je gérer -r = <pattern> avec Perop's Getopt :: Long?

Question

J'examine les options de ligne de commande en Perl en utilisant Getopt::Long. Je suis obligé d'utiliser le préfixe - (un tiret) pour les commandes courtes (-s) et -- (double tiret) pour les commandes longues (par exemple, --input=file).

Mon problème est qu'il ya une option spéciale (-r=<pattern>) il est donc option longue pour son exigence d'argument, mais il doit avoir un tiret (-) préfixe non double tiret (--) comme d'autres options longues. Est-il possible de configurer Getopt::Long pour les accepter?

Answer 1

Etes-vous en train de configurer le "regroupement"?

Si tel est le cas, vous pouvez désactiver le regroupement (mais vous ne pourrez pas faire certaines choses comme utiliser myprog -abc au lieu de myprog -a -b -c).

Sinon, la seule chose qui vous vient à l'esprit est d'utiliser Argument Callback (<>) et d'analyser manuellement cette option.

Answer 2

Par défaut, Getopt::Long accepte indifféremment un tiret simple (-) ou un tiret double (-). Donc, vous pouvez simplement utiliser --r=foo. Avez-vous une erreur lorsque vous essayez cela?

use strict; 
use warnings; 
use Getopt::Long; 
my $input = 2; 
my $s = 0; 
my $r = 3; 
GetOptions(
    'input=s' => \$input, 
    's'  => \$s, 
    'r=s'  => \$r, 
); 
print "input=$input\n"; 
print "s=$s\n"; 
print "r=$r\n"; 

Ces lignes de commande échantillons produisent les mêmes résultats:

my_program.pl --r=5 
my_program.pl --r 5 
my_program.pl -r=5 
my_program.pl -r 5 

input=2 
s=0 
r=5 

Answer 3

#!/usr/bin/perl 

use strict; use warnings; 

use Getopt::Long; 

my $pattern; 

GetOptions('r=s' => \$pattern); 

print $pattern, "\n"; 

Sortie:

C:\Temp> zz -r=/test/ 
/test/ 
C:\Temp> zz -r /test/ 
/test/

Est-ce que je manque quelque chose?