是否可以在命令行中用perl获取printf格式的特定参数？_Perl_Arguments_Printf

是否可以在命令行中用perl获取printf格式的特定参数？

perl

是否可以在命令行中用perl获取printf格式的特定参数？,perl,arguments,printf,Perl,Arguments,Printf,需要构建一个字符串foobar不是foo，也不是bar 在printf格式%$2s中，“2”表示特定的参数位置但它在perl中不起作用： $ perl -e "printf('%$1s$2s is not %$1s and not %$2s', 'foo', 'bar');" %2 is not %1 and not %2 我的环境： $ perl --version This is perl 5, version 16, subversion 3 (v5.16.3) built for

需要构建一个字符串

foobar不是foo，也不是bar

在

printf

格式

%$2s

中，“2”表示特定的参数位置

但它在perl中不起作用：

$ perl -e "printf('%$1s$2s is not %$1s and not %$2s', 'foo', 'bar');"
%2 is not %1 and not %2

我的环境：

$ perl --version

This is perl 5, version 16, subversion 3 (v5.16.3) built for x86_64-linux-thread-multi
(with 29 registered patches, see perl -V for more detail)

这在*尼克斯对我有效：

perl -e "printf('%s%s is not %1\$s and not %2\$s', 'foo', 'bar');"

请参阅，特别是最后的示例：

这里还有一些例子；请注意，使用显式索引时，

可能需要转义：

printf "%2\$d %d\n",      12, 34;     # will print "34 12\n"
printf "%2\$d %d %d\n",   12, 34;     # will print "34 12 34\n"
printf "%3\$d %d %d\n",   12, 34, 56; # will print "56 12 34\n"
printf "%2\$*3\$d %d\n",  12, 34,  3; # will print " 34 12\n"
printf "%*1\$.*f\n",       4,  5, 10; # will print "5.0000\n"

这在*尼克斯对我有效：

perl -e "printf('%s%s is not %1\$s and not %2\$s', 'foo', 'bar');"

请参阅，特别是最后的示例：

这里还有一些例子；请注意，使用显式索引时，

可能需要转义：

printf "%2\$d %d\n",      12, 34;     # will print "34 12\n"
printf "%2\$d %d %d\n",   12, 34;     # will print "34 12 34\n"
printf "%3\$d %d %d\n",   12, 34, 56; # will print "56 12 34\n"
printf "%2\$*3\$d %d\n",  12, 34,  3; # will print " 34 12\n"
printf "%*1\$.*f\n",       4,  5, 10; # will print "5.0000\n"

你的报价被取消了

perl -E 'say sprintf(q{%1$s%2$s is not %1$s and not %2$s}, "foo", "bar");'
foobar is not foo and not bar

您不能对

-e

使用双引号

“

，因为shell会混淆。你需要单引号。但是如果对

%1$s

语法的

printf

模式使用双引号，Perl将尝试插入

$s

，这是不起作用的。因此，请使用非引号

q{}

或将单引号

转义为

\'

。或者退出

如果启用

使用严格

和

使用警告

，您将看到：

$ perl -E 'use strict; use warnings; say sprintf("%1$s%2$s is not %1$s and not %2$s", "foo", "bar");'
Global symbol "$s" requires explicit package name at -e line 1.
Global symbol "$s" requires explicit package name at -e line 1.
Global symbol "$s" requires explicit package name at -e line 1.
Global symbol "$s" requires explicit package name at -e line 1.
Execution of -e aborted due to compilation errors.

这是用单引号

表示

-e

，双引号

表示模式

$ perl -E "use strict; use warnings; say sprintf('%1$s%2$s is not %1$s and not %2$s', 'foo', 'bar');"
Invalid conversion in sprintf: "%1 " at -e line 1.
Invalid conversion in sprintf: "%2" at -e line 1.
%2 is not %1 and not %2

现在，由于双引号

“

，shell尝试插入

$s

。所以Perl从来没有看到过它。它将模式视为

“%1%2不是%1，也不是%2”

，它无法理解。（请注意，

在Perl中不会在双引号字符串中插入）。

您的引号已关闭

perl -E 'say sprintf(q{%1$s%2$s is not %1$s and not %2$s}, "foo", "bar");'
foobar is not foo and not bar