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

详细说明：

我有一个字符串

$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 : @ARGVn";
GetOptions (
            'infile=s'  => $infile,'outfile=s' => $outfile
           );

有没有好/更好的方法？