如何在 Perl printf 表达式中包含变量？

Question

如何在 printf 表达式中包含变量？

这是我的示例：

printf "%${cols}s", $_;

其中 $cols 是列数 $_ 是一个字符串。

该语句会导致“无效转换”警告。

问题最终是我忘记了删除变量。嘎。谢谢大家。

Answer 1

我无法重现你的问题。以下代码工作正常：

use strict;
use warnings;

my $cols=40;
while (<>) {
    printf "%${cols}s\n", $_;
}

它使用至少 40 列宽度打印任何输入行。

Answer 2

您的插值变量 $cols 看起来应该是一个数字，比如 10，所以

"%${cols}s"

应该插值并相当于

"%10s"

有效的格式字符串。

但是，如果 $cols 不是数字或有效格式字符串，您会收到警告。

例如，如果：

$cols = "w";

这将导致 "%ws" 作为格式字符串 - 给出您引用的错误：

Invalid conversion in printf: "%w"

可以找到有效的格式信息此处。

Answer 3

我弄清楚了你的具体问题。你的代码是正确的。但是，我认为 $cols 可能是从用户输入中读取的数字，如下所示：

my $cols = <STDIN>;

这有效，并且在数字上下文中 $cols 将显示为一个数字，但是问题是 $cols 没有出现在此处的数字上下文中。它位于字符串上下文中，这意味着您的格式字符串不会扩展为 "%5s"，而是扩展为 "%5\ns"。那里的换行符弄乱了格式字符串。

将您读取 $cols 的代码更改为：

chomp(my $cols = <STDIN>);

请参阅 < 上的文档code>chomp，因为您可能也想将它用于其他输入读取。

Answer 4

始终在格式说明符中使用 * 来明确指示可变宽度！这类似于使用 printf "%s", $str 而不是 printf $str 的建议。

来自 关于 sprintf 的 perlfunc 文档：

（最小）宽度

参数通常被格式化为仅显示给定值所需的宽度。您可以通过在此处输入数字来覆盖宽度，或者从下一个参数（使用 *）或指定参数（例如 *2$）获取宽度：

printf '<%s>', "a"; # 打印“”
printf '<%6s>', "a"; # 打印“”
printf '<%*s>', 6, "a"; # 打印“”
printf '<%*2$s>', "a", 6; # 打印“”
printf '<%2s>', "长"; # 打印“<长>” （不截断）

如果通过*获得的字段宽度为负数，则与-标志具有相同的效果：左对齐。

例如：

#! /usr/bin/perl

use warnings;
use strict;

my $cols = 10;
$_ = "foo!";
printf "%*s\n", $cols, $_;
print "0123456789\n";

输出：

      foo!
0123456789

启用 warnings 编译指示后，您将看到非数字宽度参数的警告。

Answer 5

您当前的方法应该有效

perl -e'my $cols=500; $_="foo"; printf "%${cols}s\n\n", $_;'

Answer 6

以下似乎对我有用

#!/bin/perl5.8 -w
use strict;
my $cols = 5;
my $a = "3";
printf "%${cols}d\n", $a;

：

28$ ./test.pl
    3

29$