格式化 Perl 输出23

Perl提供了丰富的格式化输出特性，使您可以控制输出数据的显示方式。

格式化字符串

Perl 中的格式化字符串使用类似 C 语言的语法。格式说明符以百分号 (%) 开头，后跟一个转换标志。例如：```perl
printf "%d", 123; # 输出 123
printf "%f", 123.45; # 输出 123.450000
```

常用的转换标志包括：| 标志 | 描述 |
|---|---|
| %d | 十进制整数 |
| %f | 浮点数 |
| %s | 字符串 |
| %c | 字符 |
| %x | 十六进制整数 |
| %o | 八进制整数 |

还可以使用修饰符来控制格式化，例如：| 修饰符 | 描述 |
|---|---|
| - | 左对齐 |
| + | 显示正负号 |
| # | 使用替代表示形式（例如，十六进制数前缀为 0x） |
| 0 | 用 0 填充 |
| ^ | 将浮点数显示为指数形式 |

例如：```perl
printf "%-10d", 123; # 左对齐，填充 10 个字符
printf "%+f", 123.45; # 显示正号
printf "%#x", 123; # 以十六进制表示，前缀为 0x
```

sprintf() 函数

sprintf() 函数将格式化字符串和参数组合成一个字符串。它类似于 printf()，但不会输出数据。结果字符串存储在一个变量中。

例如：```perl
my $name = "John";
my $formatted_string = sprintf("Hello, %s!", $name);
print $formatted_string; # 输出 Hello, John!
```

printf() 函数

printf() 函数将格式化字符串和参数输出到标准输出或文件句柄。

例如：```perl
printf "Hello, %s!", "John"; # 输出 Hello, John!
```

printf() 还可以将输出重定向到文件句柄，例如：```perl
open my $fh, '>', '';
printf $fh "Hello, %s!", "John";
close $fh;
```

这将把格式化输出写入 文件。

format() 函数

format() 函数允许您创建复杂的多行格式化输出。它使用类似于数据库查询语言的语法。

例如：```perl
my @data = (
{ name => 'John', age => 25 },
{ name => 'Jane', age => 30 },
);
format STDOUT,
"Name | Age" .
"-----+-----" .
"$name | $age" for @data;
```

这将输出格式化的表格：```
Name | Age
-----+-----
John | 25
Jane | 30
```

其他格式化选项

Perl 还提供了其他格式化选项：* sprintf("%.2f", 123.45);：将浮点数保留两位小数。
* local $FORMAT = '%04d'; print 123;：临时更改输出格式。
* use POSIX 'strftime'; strftime('%Y-%m-%d %H:%M:%S', time);：使用 strftime() 函数格式化日期和时间。
* use POSIX 'setlocale'; setlocale(LC_ALL, '-8');：设置区域设置以控制数字、日期和货币格式。

通过利用这些特性，您可以精确控制 Perl 输出的显示方式，从而创建整洁且易于读懂的格式化数据。

2024-12-21

上一篇：Perl 自訂函數：建立可重複使用的程式碼片段

下一篇：CentOS 7 上安装 Perl 的详细指南