Getopt::Long 将带空格的字符串获取到变量中

Question

我正在制作一个 perl 脚本，它使用 Getopt::Long 来解析命令行参数。但是，我有一个参数可以接受字符串（带空格）。如何将整个字符串放入变量中。例如：

./script.pl --string=blah blah blah blah yup --another-opt

我需要变量 $string 中的“blah blah blah blah yup”。我知道 Getopt::Long 支持一个参数的多个输入当你知道你将有多少（我不知道）。这可能吗？

Answer 1

您需要在参数周围加上引号：

./script.pl --string="blah blah blah blah yup" --another-opt

或转义空格：

./script.pl --string=blah\ blah\ blah\ blah\ yup --another-opt

Answer 2

这实际上是对 MaxMackie 对 Ernest 答案的问题的答复，但它太长了，所以这里是：

您的脚本永远不会看到引号，只有传递参数的 shell。当您调用脚本（或程序）时，较低级别上发生的情况是使用数组中的多个参数来调用该命令。 shell 通常根据空格分割参数。您的程序现在看到的是：

[0]./script.pl
[1]--string=blah
[2]blah
[3]blah
[4]blah
[5]yup
[6]--another-opt

在字符串周围加上引号或转义它会导致以下结果：

[0]./script.pl
[1]--string=blah blah blah blah yup
[2]--another-opt

Shell（特别是 bash，我确信其他的）允许随意散布不带空格的引号。 ls -"l""h" 与 ls -lh 相同，因此您可以执行 "--string=blah blah" 或--string="blah blah"。使用 getopt 对各个参数进行解析，让您可以将它们打乱顺序并使用 --long-name 或 -l 发生在所有内容都转换为数组项之后，并且传递给程序。外壳与此无关。

Answer 3

虽然我当然同意您应该逃避参数，但如果像我一样您遇到无法轻松控制输入的情况，那么实际上可以使用 Getopt::Long 来做到这一点。

示例： [https://www.jdoodle.com/a/oHG]

use strict;
use Getopt::Long qw(GetOptions);


my @spaces_string;

GetOptions('test=s{1,}' => \@spaces_string);
printf "String is: '%s'\n" ,join " ",@spaces_string;

您是将您的选项定义为具有 1 个或多个值，将其分配给一个数组，然后将其连接回一个字符串。

这在文档的“具有多个值的选项”部分中有很好的解释： http://perldoc.perl.org/Getopt/Long.html#Options-with-multiple-values

Answer 4

现在给我这个谜语...在下面的场景中，我想通过 shell 命令生成一个带引号的命令行参数，然后将其传递给 Perl 脚本，如下所示：

script.pl `echo --string \"blah blah yup\"`

问题是，GetOptions ("string=s " => \$string) 将字符串的值设置为

"blah

包含初始双引号字符并在第一个空格处断开。 echo 命令本身会输出带有看起来桃色的带引号字符串的参数：

--string "blah blah yup"

如果我在没有 echo 的情况下调用 script.pl --string "blah blah yup" ，则包含字符串的空白会在Perl 脚本如预期。

我认为也许反引号是问题所在，但这些变体会产生相同的结果：

script.pl $(echo --string \"blah blah yup\")
script.pl $(echo "--string \"blah blah yup\"")
script.pl $(echo --string \"blah\ blah\ yup\")
script.pl $(echo '--string \"blah blah yup\"')

尽管最后一个示例导致 string=\"blah （包含初始反斜杠 和 双引号字符）。

看起来从 shell 命令的 STDOUT 返回的输出并没有被 Perl 的参数解析机制以与输入到命令行中的字符串相同的方式处理，但这种明显缺乏字符串可替换性的情况有些令人惊讶。可能是由于我不理解 bash 的某些方面（顺便说一句，我在 Darwin 上使用 Perl 5.24 和 Linux 上使用 5.16 进行了测试）