Wie kann ich nicht definierte Optionen erlauben, wenn args mit Getopt

Question

Parsen Wenn ich eine Befehlszeile haben wie:

my_script.pl -foo -WHATEVER 

Mein Skript kennt --foo, und ich möchte Getopt Variable $opt_foo, setzen aber ich weiß nicht, irgendetwas über -WHATEVER. Wie kann ich Getopt anweisen, die Optionen, die ich ihm gesagt habe, auszuwerten und dann die restlichen Argumente in einer String-Variablen oder einer Liste abzurufen?

Ein Beispiel:

use strict; 
use warnings; 

use Getopt::Long; 

my $foo; 

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

print 'remaining options: ', @ARGV; 

Dann Ausgabe

perl getopttest.pl -foo -WHATEVER

 
Unknown option: whatever 
remaining options: 

Answer 1

Sie müssen „pass_through“ Option über Getopt::Long::Configure("pass_through");

konfigurieren Dann ist es tatsächlich Optionen (zB Material, beginnend mit „-“ und ohne die spezielle „-“ Trennzeichen zu bedeuten das Ende der „echten“ Optionen) unterstützen .

hier Perldoc Zitat:

• pass_through (Standard: deaktiviert)

  Optionen, die mit einem ungültigen Optionswert unbekannt, zweideutig oder geliefert werden, sind in @ARGV durchlaufen statt wie gekennzeichnet werden Fehler. Dadurch können Wrapper-Skripts geschrieben werden, die nur einen Teil der vom Benutzer bereitgestellten Befehlszeilenargumente verarbeiten, und die verbleibenden Optionen an ein anderes Programm übergeben.

Hier ist ein Beispiel

$ 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

gibt, sind die verbleibenden (unparsed) Werte einfach hinter sich gelassen in @ARGV? Wenn Ihr zusätzliche Inhalte mit Bindestrichen beginnt, müssen Sie mit einem -- das Ende der Optionsliste anzuzeigen:

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

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

Dann ruft:

my_script.pl --foo -- --WHATEVER 

gibt:

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

PS . In MooseX::Getopt, die "verbleibenden" Optionen von der Befehlszeile werden in das extra_argv Attribut als Arrayref - also ich würde empfehlen zu konvertieren!

Answer 3

Ich denke, die Antwort hier ist leider "nein, es gibt keinen Weg, es genau so zu machen, wie du fragst, mit Getopt :: Long, ohne @ARGV selbst zu analysieren." Ether hat jedoch eine gute Lösung. Für die meisten Leute ist es ein Feature, dass jedes option-artige Argument als Fehler erfasst wird. Normalerweise können Sie tun,

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

zu erfassen/verhindern, dass ungerade Optionen übergeben werden, und dann können Sie den Benutzer auf Nutzung korrigieren. Alternativ können Sie sie einfach durchlaufen und ignorieren.