perl - 如何使用 GetOpt::Long::GetOptions 解析字符串？

Question

我有一个带有可能的命令行参数的字符串(使用 Read-Eval-Print-Loop 程序)，我希望它在传递给 Getopt::Long 时被解析为类似于命令行参数。

详细说明:

我有一个字符串

$str = '--infile /tmp/infile_location --outfile /tmp/outfile'

我希望它由 GetOptions 解析，以便我可以更轻松地添加新选项。

我能想到的一种解决方法是在空格上拆分字符串并用新数组替换 @ARGV，然后调用 GetOptions。就像是 ...

my @arg_arr = split (/\s/, $input_line);

# This is done so that GetOptions reads these new arguments
@ARGV = @arg_arr;
print "ARGV is : @ARGV\n";
GetOptions (
            'infile=s'  => \$infile,
            'outfile=s' => \$outfile
           );

有什么好的/更好的方法吗？

Answer 1

查看部分 parsing options from an arbitrary string在 man page for Getopt::Long ，我认为它完全符合您的要求。