如何使用GetOpt :: Long :: GetOptions解析字符串？
GetOpt 是一个用于从命令行获取选项的 C 标准库，其可以解析以逗号分隔的字符串或命令行参数列表。
GetOptions 可以处理从标准输入获取参数、从命令行参数传递参数等多种场景，例如：
void print_options(int argc, char**argv)
{
int o;
while ((o = getopt_long(argc, argv, "ab:",
getopt_long_only, NULL)) != -1) {
switch (o) {
case 'a': // 指定选项
printf("Option a specified\n");
break;
case 'b': // 指定选项
printf("Option b specified\n");
break;
case 'c': // 指定选项
printf("Option -c specified\n");
break;
case 'd': // 指定选项
printf("Option d specified\n");
break;
default: // 无匹配选项
printf("Unknown option: %c\n", o);
}
}
}以上代码中，print_options 函数会根据 getopt 从命令行参数列表中获取指定选项并输出执行结果，例如：
$ gcc -abc上述命令中，a 选项由 -a 提供，其他选项由 -bc 提供， getopt 将解析命令行参数，并获取相应的选项，调用 print_options 函数输出解析结果。
GetOptions 可通过传入参数 getopt_long_only 来指定在解析过程中是否采用短参数的方式，即只将参数解析为单个短选项和选项组，并利用 optind 参数来指定下一个要进行解析的参数。
相关·内容
2回答
我试图使用Getopt::Long模块作为参数打开一个输入文件
这是我剧本的开头
#! /usr/bin/perl -s
use strict;
use warnings;
use Data::Dumper;
local $Data::Dumper::Useqq = 1;
use Getopt::Long qw(GetOptions);;
my $input='';
GetOptions('input|in=s' => \$input);
open(my $table1,'<', $input) or die "
浏览 0提问于2016-07-22得票数 2
回答已采纳
1回答
#test.pl
use Getopt::Long;
Getopt::Long::Configure ("bundling");
GetOptions ( 'TestB|B|b' => \$testb ,
'TestA|A|a' => \$testa, );
这就是我的情况--我可以把perl test.pl -Ba赶走
所以我使用Getopt::Long::Configure ("bundling");
正因为如此，我的程序一开始就变慢了，即使我试图用options perl test.
浏览 0提问于2010-08-27得票数 0
回答已采纳
在Perl的Getopt::Long version 2.39中，我可以使用
use Getopt::Long qw( :config gnu_getopt );
GetOptions(
\my %opts,
"codon-view|c:20", # Optional value, default 20
"consensus|C:50",
...
)
如果我使用-c，则当给出%opts时，在键codon-view下的默认值是20，但没有显式的值。另一方面，没有提供-c或--codon-view，则哈希表中的值没有存储在%opts
浏览 10提问于2016-06-01得票数 4
回答已采纳
我有一个现有的Perl脚本，它有许多使用Getopt::Std (getopts函数)处理的命令行选项。但是，我想增加两个新选项：--testrun和--cfgarray。
我用的是use Getopt::Long;和GetOptions('testrun' => \$test_flag);“--发情”，这是没有争议的。我只是把它当作像if($test_flag)一样的标志。它在单独运行时工作。但是，由于在我的Perl脚本中同时存在use Getopt::Long;和use Getopt::Std;，所以我得到了错误：
未知选项
从getopts api (在Ge
浏览 2提问于2018-07-02得票数 0
在一次代码审查中，我第一次被要求检查对Getopt::Long Perl模块的GetOptions()函数的调用返回的代码。
我不记得曾经见过这样的GetOptions()函数测试。
那么，人们通常不检查这个函数的返回码有什么特别的原因吗？
浏览 0提问于2012-07-18得票数 8
回答已采纳
我正在尝试设置Getopt::Long来处理来自配置脚本的参数。
这是我的开场白；
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
my $config_file = '';
GetOptions (
'config|c=s' => \$config_file,
'add|a' => \&add_server,
'del|d' => \&del_server,
);
sub add_serve
浏览 0提问于2011-12-13得票数 2
我试图在命令行将一个数组传递给Perl。
我正在阅读的指令
我的剧本是
#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use feature 'say';
use autodie ':all';
use Getopt::Long 'GetOptions';
my @array;
GetOptions ("a=s@" => \@array);#'file' indicates string on command
浏览 4提问于2019-09-26得票数 0
回答已采纳
在Perl 5中，我可以使用Getopt::Long解析带有一些验证的命令行参数(参见下面的)。
use Getopt::Long;
my $data = "file.dat";
my $length = 24;
my $verbose;
GetOptions ("length=i" => \$length, # numeric
"file=s" => \$data, # string
"verbose" => \$verbose) #
浏览 0提问于2015-04-17得票数 14
回答已采纳
我可以使用Getopt::Long来设置struct字段吗？
use strict;
use diagnostics;
use Getopt::Long;
use Class::Struct foo [ a => '$', b => '$' ];
my $foo = foo->new();
GetOptions("a=i" => \$foo->a, "b=i" => \$foo->b);
似乎不工作，"-a 10“似乎没有设置$foo->a。
显然，我宁愿避免
GetOpt
浏览 0提问于2012-08-23得票数 2
回答已采纳
我正在尝试记录Perl脚本中的行为。我想打印所有传递给Getopt：：Long的GetOptions但@ARGV为空的参数。 我想要的东西，可以自动打印所有的选项和他们的值，传递到GetOptions。我一直在阅读https://perldoc.perl.org/Getopt/Long.html，但我在那里找不到任何东西。 我想要的很简单，我很惊讶我找不到这样的东西。如何自动输出所有选项及其设置以用于日志记录？
浏览 16提问于2019-10-08得票数 2
回答已采纳
我试图使用GetOptions函数从GetOpt::Long调用一个接受参数的子例程。但是，无论该选项是否在命令行上指定，都会调用该子例程。如果没有将参数传递给GetOptions行中的子例程，则不会发生此意外行为。
下面是对这个问题的最起码的说明：
如果向GetOptions行中的子例程提供参数，则不管其控制选项是否在命令行中提供，子例程最终都会被调用：
$ cat a1.pl
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long qw(GetOptions);
my $var="entered";
GetOpt
浏览 4提问于2017-11-15得票数 4
回答已采纳
对于我正在编写的perl脚本，可以提供大量(~50)命令行选项。其中大多数是可选的，因此调用将只提供一些选项。
我正在使用Getopt::Long，但它不允许我不止一次使用GetOptions。因此，我必须在一个GetOptions调用中使用所有命令行选项。
在使用GetOptions**?**时，有什么好的方法对选项进行分组吗？
$ cat test.pl
use strict;
use warnings;
use Getopt::Long;
my ($a, $b, $c, $d);
GetOptions ('a=s' => \$a, 'b=s' =
浏览 8提问于2010-11-12得票数 1
使用GetOptions时，有没有办法检查我的输入(值)是否提供 #file testing.pl
#!/usr/5.14.1/bin/perl
use strict;
use Getopt::Long qw(:config no_ignore_case no_auto_abbrev);
Getopt::Long::Configure("no_pass_through");
#default value
my $testing = 0;
my $loc = undef;
my %opt_map {
"-test" => $testing,
浏览 22提问于2020-12-01得票数 1
我编写了一个Perl程序"transfer.pl“，输入参数是散列值(键和值是字符串)。代码段是：
my %transfers = ();
if (!GetOptions("transfer=s" => \%transfers))
{
Usage();
exit(1);
}
我用了窗户系统。在命令行中，我键入：
perl tranfer.pl --传输表= %s"="TableName=%s“
我希望键是table = %s，值是[TableName=%s]，但是看起来Getopt::Long总是找到第一个=，所以键是ta
浏览 7提问于2009-08-14得票数 2
2回答
#!/usr/bin/perl -sw
use strict;
use warnings;
use Getopt::Long;
my $remote = 0;
my $test = 0;
GetOptions ('remote' => \$remote, 'test' => \$test);
print "$remote:$test\n";
perl test.pl --远程测试
上面的代码打印"0:0“。我是Perl的新手，所以我不能确定为什么它不能工作。
我还在上运行了“简单选项”部分，但也没有产生任何结果。
浏览 1提问于2012-08-23得票数 6
回答已采纳
2回答
这是我关于堆叠溢出的第一篇文章。:)
我试图用GetOpt::Long来解决这个场景。
./myscript -m /abc -m /bcd -t -m /ecd -t nfs .
-m是挂载点，-t是文件系统的类型(可以放置，但不是强制的)。
Getopt::Long::Configure("bundling");
GetOptions('m:s@' => \$mount, 'mountpoint:s@' => \$mount,
't:s@' => \$fstype, '
浏览 2提问于2016-07-12得票数 3
回答已采纳
我有这个getopt：
GetOptions( GetOptions ("library=s" => \@libfiles);
@libfiles = split(/,/,join(',',@libfiles));
"help" => \$help,
"input=s" => \$fileordir,
"pretty-xml:4" => \$pretty
);
Getopt::Long::GetOptions是否可以检测到命令行中是否多次提供了相同的选
浏览 0提问于2012-04-06得票数 4
回答已采纳
使用Getopt::Long，我希望从GetOptions捕获任何故障，而不是将它们打印到STDOUT/STDERR，我希望打印出一个用法字符串并退出脚本。我尝试将对GetOptions的调用包装在Try::Tiny try/catch块中，但它没有被捕获。我不知道幕后发生了什么。
如何在GetOptions中捕获故障，阻止其打印，并打印我自己的用法语句？
浏览 14提问于2017-07-27得票数 1
我使用Getopt::Long来获取perl脚本的命令行选项。我想向它传递一个可选的参数，这样如果指定了值，我就可以执行一些操作，如果调用了该选项，则可以传递其他的参数，但是没有传递值。
脚本将按如下方式调用：
/root/perlscripts/pingm.pl --installdaemon
没有指定的参数，并且：
--installdaemon=7.7.7.7
用于指定可选参数。
那我就这么做：
Getopt::Long::Configure(qw(bundling no_getopt_compat));
GetOptions ('installdaemon:s' =&g
浏览 11提问于2013-08-19得票数 1
回答已采纳
我的程序接受命令行参数。
test.pl --help
我想在代码中启用"help“选项。如何在代码中打印用法？
#!/usr/bin/perl
use strict;
use warnings;
use Cwd 'chdir';
use Getopt::Long;
my ($application,$version, $location,$artifactid,$pomversion,$groupid);
GetOptions('application=s' => \$application,
'v
浏览 1提问于2017-06-08得票数 0
2回答
如何使用Getopt::Long识别未知选项？
我尝试了'<>'，但它并不像expected..Consider那样工作：
use Modern::Perl;
use Getopt::Long;
my $help='';
GetOptions ('help' => \$help,'<>' => \&usage);
usage() if $help;
usage() if @ARGV != 1;
my $fn=pop;
say "FileName: $fn";
s
浏览 8提问于2014-03-25得票数 2
回答已采纳
下面是我试图理解的一段代码：
use Getopt::Long;
my $isheader ;
if( !GetOptions(
"is-header!" => \$isheader,
) ) { exit 1; }
print "isheader is = $isheader\n" ;
当我以以下方式运行代码时：
script.pl --is-header
产出如下：
isheader is = 1
我写了一个"!“在选项的末尾，名称是-header来否定，所以输出不应该是：
isheader
浏览 1提问于2017-09-19得票数 0
回答已采纳
例如：
use Getopt::Long;
%file ;
GetOptions('file=s%' =>
sub { push(@{$file{$_[1]}}, $_[2]) });
use Data::Dumper ;
print Dumper %file ;
print @{$file{filename}} ;
my @file_array = @{$file_ref};
print "==\n @file_array == ";
我可以执行它，并且它可以工作：
perl multipls.pl --file filename=a.t
浏览 1提问于2010-10-19得票数 3
回答已采纳
2回答
我知道这个话题已经被打死了，但我仍然找不到我正在寻找的东西。我需要在C++中解析命令行参数。
我不能使用Boost和long_getopt
问题在于类型转换，当我简单地打印参数时，它在循环中按预期工作，但赋值给变量的值不知何故不起作用。
下面是完整的、可编译的程序。
#include <iostream>
#include <getopt.h>
using namespace std;
int main(int argc, char *argv[])
{
int c;
int iterations = 0;
float decay = 0.0f
浏览 0提问于2011-09-17得票数 3
回答已采纳
1回答
有没有一种简单的方法来检测Perl模块Getopt::Long的二义性选项？
例如：
#!/usr/bin/env perl
# test ambiguous options
use Getopt::Long;
my $hostname = 'localhost';
GetOptions( help => sub { print "call usage sub here\n"; exit },
'hostname=s' => \$hostname,
);
print
浏览 3提问于2011-07-19得票数 4
回答已采纳
如何使用perl命令行参数读取文本文件并使用perl打印第三列？
从命令行中获取输入并打印所需的列给我留下了深刻印象。帮助我选择正确的方式来达到预期的产出。
使用命令行input:(**map.pl**)编写的代码
use strict;
use warnings 'all';
use Getopt::Long 'GetOptions';
my @files=GetOptions(
'p_file=s' => \my $p_file,
);
print $p_file ? "p_file = $p_file\n"
浏览 4提问于2017-02-17得票数 1
我正在尝试使用Perl (v5.14.2)获取一个3D向量作为单个命令行输入参数。
在经历了之后，我决定从这个开始：
use Getopt::Long;
my @boxSize = (0, 0, 0);
GetOptions('box:f{3}' => \@boxSize);
print "Box size: $boxSize[0], $boxSize[1], $boxSize[2]\n";
使用参数-box 1.0 2.0 3.0运行此脚本会产生以下结果：
Box size: 0 0 0
现在，如果我不初始化@boxSize：
use Getopt:
浏览 0提问于2013-02-27得票数 1
回答已采纳
2回答
我想从命令行传递参数，所以我尝试了下面的代码，但是它引发了一个错误？
use strict;
use warnings;
use Getopt::Long qw(GetOptions);
use Getopt::Std;
print "raw data:@ARGV\n";
my $site=getopts('bangalore','norwood','limerick');
if($site)
{
print "success";
}
else
{
die "error";
}
print "
浏览 9提问于2016-11-09得票数 0
回答已采纳
我知道错误：
panic: attempt to copy freed scalar a121fb4 to a156be8 at ./p.pl line 13.
当我运行以下程序(p.pl)时：
use warnings;
use strict;
use Getopt::Long qw(GetOptions);
main(@ARGV);
sub main {
GetOptions ();
print "\@ARGV=@ARGV\n";
my $arg=shift;
}
例如，当使用一个或多个命令行参数时，p.pl 1会给出错误。
原因是什么？
浏览 4提问于2014-10-22得票数 2
回答已采纳
我使用Getopt::Long来解析perl脚本的命令行标志和参数。对于某些标志，我需要在脚本中声明只有在选择了该标志时才使用的变量-否则它们永远不会被使用。我想要有条件地声明它们，也就是说，只有在使用了标志的情况下，我才不会有一堆未使用的变量。以下是一些不起作用的示例代码，但说明了我想要做的事情。
use Getopt::Long qw(GetOptions);
my ($f1, $f2, $f3);
GetOptions('f1' => \$f1, 'f2' => \$f2, 'f3' => \$f3);
if($f2){
浏览 4提问于2015-07-14得票数 1
我正在尝试管理用户在执行命令时指定的大量参数。到目前为止，我一直在尝试将我的脚本设计限制为将参数作为我可以使用Getopt::Long轻松管理的标志来管理，如下所示：
GetOptions ("a" => \$a, "b" => \$b);
通过这种方式，我可以检查是否指定了a或b，然后执行相应的代码/函数。
但是，现在我有一个例子，用户可以指定两个参数变量，如下所示：
command -a black -b white
这很好，但是我想不出一个好方法来确定首先指定的是-a还是-b。因此，我不知道在我执行GetOptions ("a"
浏览 0提问于2010-05-28得票数 3
回答已采纳
我的问题如下：
我谈到了如何传递命令行参数，而不是使用perl传递目录路径。
例如，假设我按如下方式执行该文件：
./welcome.pl -output_dir "/home/data/output"
我的代码：
#!/usr/local/bin/perl
use strict;
use warnings 'all';
use Getopt::Long 'GetOptions';
GetOptions(
'output=s' => \my $output_dir,
);
my $locatio
浏览 1提问于2017-03-06得票数 0
回答已采纳
我想写一个脚本，遍历一个目录及其子目录，获取所有的XML文件并解析它们。我和chdir有点问题。这可以很好地工作：
my $search = "/home/user/books";
chdir($search) or die "cant change dir to $search $!";
system("ls");
但是我想让用户决定他想要搜索的路径，所以我使用Getopt::Long
use strict;
use warnings;
use Data::Dumper;
use XML::Simple;
use Getopt::Long;
浏览 1提问于2012-06-15得票数 0
在Perl中，有一个
Getopt::Long
模块，该模块具有将多个值传递给选项的功能。例子如下：
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
my $fileList = "";
GetOptions("file_list=s@" => $fileList);
if($fileList) {
foreach my $f (@$fileList) {
# process each file's contents
}
}
在Python中是否有类似的东西来做同样
浏览 0提问于2015-12-30得票数 2
回答已采纳
我想使用Getopt::Long::GetOptions将命令行选项添加到脚本中。
我有一个这样的需求：
perl script.pl -c <name1> -c <name2> -m <name3> argument
这里我们有选项标志-c和-mm，它们是可选的，argument是强制的。
谁能指出GetOptions的正确用法
浏览 3提问于2013-05-23得票数 3
回答已采纳
我的程序如下：
use strict;
use warnings;
use Getopt::Long;
my @letters;
my @words;
GetOptions(
"letters=s{2}" => \@letters,
"words=s{,}" => \@words
);
print "Letters: " . join(", ", @letters) . "\n";
print "Words:
浏览 0提问于2011-11-18得票数 0
4回答
我想在运行脚本后从user命令记录选项和它们的参数。
考虑下面的命令：
./test.pl --ip localhost --id 400154 --class firstgrade
...and许多其他选项和值。我想要的输出如下所示(通过使用log4perl)：
debug - ip=>localhost id=>400154 class=>firstgrade
我有：
use Getopt::Long;
my $ip;
my $id;
my $class;
my %h =('ip' => \$ip,
'id'
浏览 4提问于2011-02-09得票数 0
3回答
Getopt::Long::Configure("no_pass_through");
my %opts = ();
GetOptions(\%opts,
'opt1=s',
'opt2=s',
'opt3'
);
test.pl bad_option_without_dash
在没有破折号的情况下传递错误选项时，如何使getopts标志错误？我还以为no_pass_through会处理这件事呢。我遗漏了什么？
浏览 8提问于2020-02-07得票数 2
回答已采纳
在perl脚本中，当脚本被调用时，我使用Getopt::Long解析命令行选项。
现在，我想添加一个选项-%
die unless GetOptions (
'x=i' => \my $x,
'y:i' => \my $y,
'z' => \my $z,
'%' => \my $percent
);
然而，这导致了Error in option spec: "%"。当然，我可以使用'pct' => \my $percent而不是&
浏览 1提问于2014-12-25得票数 2
回答已采纳
2回答
我希望防止基于变量或命令行参数的Perl脚本的多次调用。扩展
#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Long;
my ( $foo, $bar );
GetOptions (
"foo" => \$foo,
"bar" => \$bar,
) || die "usage: $0 [ -foo | -bar ]\n";
use Fcntl ':flock';
flock(DATA, LOCK_EX|LOCK_NB)
浏览 9提问于2022-09-11得票数 1
我尝试用文件夹名(即pro)和位置(即“/c/lol/ap/a/ds/crent/stup/pjects/DEMO/mfile.txt)并使用命令行arguments.So运行脚本(i.eperl readfile.pl)来获取文件，我通过readfile.pl尝试了下面的示例脚本，我觉得我的脚本完全是wrong.Could，任何人都可以帮助我找到正确的方法。
示例脚本：(perl readfile.pl)
use strict;
use warnings;
use Getopt::Long qw(GetOptions);
my $pro;
my $mfile;
my $odir;
GetO
浏览 7提问于2017-02-16得票数 0
回答已采纳
1回答
我的剧本：
#!/usr/local/bin/perl
use POSIX qw(strftime);
use strict;
use warnings;
use Getopt::Long;
##input parameters
my ($artifact,$package_id);
GetOptions("artifact=s" =>\$artifact,
"package_id=i" => \$package_id);
if($artifact =~ /\.zip$/i)
{
chdir("/apps/c
浏览 3提问于2014-04-20得票数 0
回答已采纳
我有一个带有可能的命令行参数的字符串(使用Read-Eval-Print-Loop程序)，我希望它在传递给Getopt::Long时与命令行参数类似地进行解析。
详述：
我有一根线
$str = '--infile /tmp/infile_location --outfile /tmp/outfile'
我想让它被GetOptions解析，这样我就可以更容易地添加新的选项。
我能想到的一种解决办法是在空格上拆分字符串，用新的数组替换@ARGV，然后调用GetOptions。就像..。
my @arg_arr = split (/\s/, $input_line);
# Thi
浏览 1提问于2008-09-22得票数 7
回答已采纳
3回答
我需要你的帮助。
use Getopt::Long;
my $inputFile = "";
my $outputFile = "";
my $input_mm = "";
my $result;
$result = GetOptions (
"fromFile=s" => \$inputFile, # string
"toFile=s" => \$outputFile,
"mm=i
浏览 4提问于2013-10-03得票数 0
回答已采纳
说我在我的configure.ac里
AC_REPLACE_FUNCS(getopt_long)
我的src目录中有getopt_long.h和getopt_long.c。为了测试目的，我将如何强迫HAVE_GETOPT_LONG作为0和getopt_long.c与其他所有内容一起编译？
浏览 2提问于2016-06-08得票数 0
回答已采纳
是否可以保留未定义值的选项(在本例中为“maxdepth”)？
#!/usr/bin/env perl
use warnings;
use 5.012;
use File::Find::Rule::LibMagic qw(find);
use Getopt::Long qw(GetOptions);
my $max_depth;
GetOptions ( 'max-depth=i' => \$max_depth );
my $dir = shift;
my @dbs = find( file => magic => 'SQLite*', m
浏览 2提问于2012-02-05得票数 2
回答已采纳
场景:我需要把多个电视节目的名字传递给一个脚本:例如。./script -a "Homeworld" -a "Supernatural"
我使用Getopt::Long::Configure来获取选项。
sub ArgParser
{
my ($help,$addshow,$delshow,$checkshow,$listshows) = ();
GetOptions ('help|h' => \$help,
'add|a=s' => \$add
浏览 4提问于2017-04-03得票数 1
回答已采纳
因此，我阅读了一些关于如何使用Getopt::Long和类似的库来使用argv选项的指南，但仍然不知道如何正确使用它，因为文档和指南完全不清楚(对我来说)。
我有剧本。它还有下一个参数：-qp、-pr、-rp、-vr，其中大多数参数用于文件名。
目前，我使用的是Getopt::Long，我觉得这不合适，因为每次我都需要检查“后”选项是什么：
for(my $i = 0; $i < @ARGV; $i+=2){
if ($ARGV[$i] eq "-qp"){
unless ($ARGV[$i+1] eq "-vr" or $ARGV
浏览 4提问于2017-06-03得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
云直播
对象存储活动推荐
腾讯云开发者
