probleme with getopt

[donny750]

hello,

I use getopt but i've 2 variables begin with the same character;
It is possible with getopt to choose another character;
I explain
i've this variables
infile
inputfile
can i use the character "n" for the variable iNputfile
si i call my script like this
test.pl -i a.txt -n b.txt ?

use Getopt::Long;
  my $infile   ;
  my $inputfile;
  
  $result = GetOptions ("infile=s" => \$infile,   
                        "inputfile=s"   => \$data,      
                         );

thanks

 

[MillerH]

Straight from the documentation:

http://search.cpan.org/~jv/Getopt-Long-2.35/lib/Getopt/Long.pm#Options_with_multiple_names

Options with multiple names

Often it is user friendly to supply alternate mnemonic names for options. For example --height could be an alternate name for --length. Alternate names can be included in the option specification, separated by vertical bar | characters. To implement the above example:

GetOptions ('length|height=f' => \$length);

The first name is called the primary name, the other names are called aliases. When using a hash to store options, the key will always be the primary name.

Multiple alternate names are possible.

So therefore, you have:

use Getopt::Long;
my $infile;
my $inputfile;
  
$result = GetOptions ("infile=s" => \$infile,   
                      "inputfile[COLOR=green]|n[/color]=s"   => \$data,      
                       );

 

[MillerH]

Also, please note that you currently have the inputfile parameter bound to "$data" instead of "$inputfile". This is probably a bug.

 

[donny750]

thanks Miller i've seen,
i modify it

 

[donny750]

just a question
if i use a variable like a flag it's impossible to recover its value ??

I've try this

  >myscript.pl -v test

but i've 1 and not "test";

#!/usr/bin/perl

use Getopt::Long;

 
  my $verbose; 
  
  $result = GetOptions ("verbose"  => \$verbose);  # flag

if($verbose){

print "ok\n";
}
else
{
print "not ok\n";

}

thanks

 

[donny750]

i've found
just add ":" instead of "="
j'ai trouver

"verbose:s" => \$verbose); # flag