Perl：sprintf函数

Posted 2023-05-22 王哲_UJN_MGG_AI 探索世界

在Perl中，sprintf 是一个用于格式化字符串的函数。它接受一个格式字符串和一系列参数，并返回根据格式字符串格式化后的字符串。

sprintf 的语法如下：

sprintf FORMAT, LIST

其中，FORMAT 是格式字符串，指定了输出的格式。LIST 是需要格式化的参数列表。sprintf 将根据格式字符串对参数进行格式化，并返回格式化后的字符串。

格式字符串中可以包含格式控制符，用于指定输出的格式。常用的格式控制符包括：

• %s：字符串格式
• %d 或 %i：十进制整数格式
• %f 或 %F：浮点数格式
• %x 或 %X：十六进制整数格式
• %o：八进制整数格式

以下是 sprintf 函数的用法示例：

my $name = "John";
my $age = 25;
my $height = 1.75;

# 格式化字符串
my $formatted = sprintf("Name: %s, Age: %d, Height: %.2f", $name, $age, $height);
print $formatted; # 输出: Name: John, Age: 25, Height: 1.75

# 格式化整数
my $binary = sprintf("%b", 10); # 将十进制数 10 转换为二进制字符串
print $binary; # 输出: 1010

# 格式化浮点数
my $rounded = sprintf("%.2f", 3.14159); # 四舍五入保留两位小数
print $rounded; # 输出: 3.14

# 使用位置参数
my $formatted2 = sprintf("%2\\$s is %1\\$d years old", $age, $name);
print $formatted2; # 输出: John is 25 years old

通过使用 sprintf 函数，您可以按照指定的格式将数据格式化为字符串，并在输出中控制精度、宽度、对齐等。这对于生成复杂的输出和报告非常有用。

如何解压字符串 - 使用 sprintf 创建 - 在 Perl 中具有固定宽度

【中文标题】如何解压字符串 - 使用 sprintf 创建 - 在 Perl 中具有固定宽度

【英文标题】：How to unpack a string - created with sprintf - with fixed width in Perl

【发布时间】：2014-10-16 08:24:31

【问题描述】：

以下行带有固定：

my $line = 'ATOM      1  P   CYT B   3      42.564 -34.232  -7.330  1.00105.08           P'

使用以下 sprintf 创建。

@entr = ( 'ATOM', '1', 'P', 'CYT', 'B', '3', '42.564', '-34.232', '-7.330', '1.00', '105.08', 'P' );
print sprintf("%-6s%5d  %-4s%3s %1s%4d    %8.3f%8.3f%8.3f%6.2f%6.2f          %2s\n",@newentr)

我想做的是反转这个过程。 即以$line 作为输入，创建看起来与@entr 完全相同的数组。 如何在 Perl 中实现这一点？

【问题讨论】：

我换行了（CYT vs C）。

@choroba：我更新了@entr。

两个十进制数字直接相邻 (1.00105.08) 不是很清楚...$line 应该是人类可读的吗？

@ialarmedalien：这正是我们需要解包的原因。该列由fixed with定义。

【参考方案1】：

您可以使用unpack，或者使用正则表达式：

#                    %-6s%5d  %-4s%3s %1s%4d    %8.3f%8.3f%8.3f%6.2f%6.2f          %2s\n
my @rev_eng = unpack 'a6 a5 x2 a4 a3x1 a1 a4 x4 a8   a8   a8   a6   a6   x10       a2', $output;

my $reg = qr/^(.6) (.5) .. (.4) (...) . (.) (.4) .4 (.8) (.8) (.8) (.6) (.6) .10 (..)/x;
my @regex = $output =~ $reg;

s/^\s+|\s+$//g for @rev_eng, @regex;

在模板中，a 代表字符串，x 忽略给定的字节数（本例中为空格）。

【讨论】：

数组 Dumper 怎么会显示带有尾随空格的条目codepad.org/fu2usvIm