¿Cómo puedo establecer valores predeterminados usando Getopt :: Std?

Question

Estoy tratando de recopilar los valores de la línea de comandos usando Getopt::Std en mi script Perl.

use Getopt::Std; 
$Getopt::Std::STANDARD_HELP_VERSION = 1; 
getopts('i:o:p:'); 
my $inputfile = our $opt_i; 
my $outputfile = our $opt_o; 
my $parameter_value = our $opt_p; 

Aquí las dos primeras variables ($ archivo de entrada, $ OutputFile) son obligatorios, pero la última variable ($ parameter_value) es opcional y se puede omitir.

Estoy tratando de establecer un valor por defecto a la última variable ($ parameter_value) cuando se ignora el indicador -p en la línea de comando.

He intentado utilizar esto:

my $parameter_value = our $opt_p || "20"; 

Aquí sus pases el valor correcto cuando -p bandera se ignora en la línea de comandos. Pero el problema es cuando estoy proporcionando algún valor desde la línea de comando (por ejemplo -p 58), el mismo valor 20 se pasa al programa en lugar de 58 que pasé de la línea de comando.

¿Pueden ayudarme señalando los errores que estoy cometiendo aquí?

Gracias.

Answer 1

#/usr/bin/perl 

use strict; 
use warnings; 

use Getopt::Std; 

getopts('i:o:p:'); 
our($opt_i, $opt_o, $opt_p); 

my $inputfile = $opt_i; 
my $outputfile = $opt_o; 
my $parameter_value = $opt_p || "20"; 

print "$_\n" for $inputfile, $outputfile, $parameter_value; 

 
C:\Temp> ks -iinput -ooutput -p55 
input 
output 
55 

 
C:\Temp> ks -iinput -ooutput 
input 
output 
20 

Answer 2

Lo mejor es usar GetOpt::Long y usar un hash en lugar de variables individuales. entonces puede pasar de valores predeterminados por la pre-poblar la matriz

use Getopt::Long; 
    my %opts = (parameter => 20); 
    GetOptions(\%opts, 
      'p|parameter=i', 
      'o|outputfile=s', 
      'i|inputfile=s' 
    ) or die "Invalid parameters!"; 

    # I didn't bother cloning STANDARD_HELP_VERSION = 1; 

Answer 3

Sugiero establecer las variables de exclusión a los valores predeterminados antes de llamar getopts. Además, puede usar las variables $ opt_ en su mensaje de uso para mostrar los valores predeterminados.

use Getopt::Std; 
$Getopt::Std::STANDARD_HELP_VERSION = 1; 
our $opt_p = 20; 
sub HELP_MESSAGE { print " -p parameter value (default $opt_p)\n"; } 
getopts('i:o:p:'); 
my $inputfile = our $opt_i; 
my $outputfile = our $opt_o; 
my $parameter_value = our $opt_p; 

Answer 4

#/usr/bin/perl 
use strict; 
use warnings; 
use Getopt::Std; 

$Getopt::Std::STANDARD_HELP_VERSION = 1; 

my %opts =(); 
getopts('i:o:p:', \%opts); 
my $inputfile = $opts{i}; 
my $outputfile = $opts{o}; 
my $parameter_value = $opts{p} || "20"; 
print "$inputfile, $outputfile, $parameter_value\n";