如何在 Perl 中使用格式化程序格式化字符串108

在 Perl 中，格式化程序是一种用于格式化字符串的强大工具。它提供了许多不同的选项来自定义输出的文本，使其非常适合创建易于阅读和理解的报告、表格和其他输出。

printf() 函数

最基本的格式化程序函数是 printf()。它采用一个格式字符串和一系列要格式化的值作为参数。格式字符串包含特殊序列，指示如何格式化每个值。例如，以下代码将数字 1234567890 格式化为一个十进制整数：```perl
printf("整数值：%d", 1234567890);
```

输出为：```shell
整数值：1234567890
```

常见的格式说明符包括：* %d：十进制整数
* %f：浮点数
* %s：字符串
* %x：十六进制整数
* %o：八进制整数

你可以使用特殊序列来指定格式化选项，例如：* %-10d：左对齐并使用 10 个空格填充
* %08x：使用 8 个零填充
* %.2f：使用两位小数点

sprintf() 函数

sprintf() 函数与 printf() 函数类似，但它将格式化的字符串返回为一个标量，而不是将其打印到标准输出。这对于将格式化的字符串存储在变量中或在其他上下文中使用非常有用。例如，以下代码将数字 1234567890 格式化为一个十进制整数并将其存储在 $formatted_string 变量中：```perl
my $formatted_string = sprintf("整数值：%d", 1234567890);
```

$formatted_string 的值现在为：```
整数值：1234567890
```

format() 函数

format() 函数提供了更高级的格式化选项。它采用一个格式字符串和一个数据集作为参数。格式字符串包含类似于 printf() 函数的特殊序列，但它还允许你定义重复模式和使用条件逻辑。例如，以下代码使用 format() 函数创建了一个带标题的表格：```perl
my @data = (
{ name => "John Doe", age => 30 },
{ name => "Jane Doe", age => 25 },
);
format STDOUT =
"姓名|年龄" .
"-----+------" .
"$name|$age" .
"-----+------";
foreach my $person (@data) {
printf STDOUT, $person->{name}, $person->{age};
}
```

输出为：```
姓名|年龄
-----+------
John Doe|30
-----+------
Jane Doe|25
```

自定义格式化程序

除了内置的格式说明符之外，你还可以创建自己的自定义格式化程序。这对于创建特定于你的应用程序的自定义格式非常有用。要创建自定义格式化程序，你需要定义一个代码引用并将其传递给 % 运算符。例如，以下代码定义了一个自定义格式化程序，用于将日期格式化为 ISO 8601 格式：```perl
sub iso8601_date {
my ($date) = @_;
return $date->strftime("%Y-%m-%dT%H:%M:%SZ");
}
printf "ISO 8601 日期：%{%s}", \&iso8601_date, '2023-03-08 12:34:56';
```

输出为：```shell
ISO 8601 日期：2023-03-08T12:34:56Z
```

Perl 中的格式化程序提供了一种强大且灵活的方式来格式化字符串。它们可以用来创建易于阅读和理解的报告、表格和其他输出。通过使用内置的格式说明符、sprintf() 函数、format() 函数和自定义格式化程序，你可以完全控制字符串的格式化。

2025-02-03

上一篇：Perl 的 Bush 搜索算法

下一篇：深入浅出理解 Perl 中的 open 函数