在 Perl 中，格式化输出可以通过格式块（format block）和格式变量来实现。格式化输出主要用于生成报告或在控制台上输出对齐的文本。（需要注意的是，格式化输出是 Perl 的古老特性，在现代 Perl 编程中并不常用）

基本概念

1. 格式块（format block）：

   • 用于定义特定的输出格式。
   • 由 format 关键字开始，并跟随格式块名（通常与文件句柄同名）。

2. 格式变量（特殊变量）：

   • 以符号形式定义用于格式化的变量，如 $~ 和 $^。
   • $~ 指定当前选择的顶级格式（常用于报告页眉）。
   • $^ 指定当前选择的页面格式。

定义格式块

format FORMAT_NAME =  
Item: @<<<<<<<<<<<< Price: @<<<<<  
$item, $price  
.  
# 应用该格式的文件句柄通常是 STDOUT  
$~ = 'FORMAT_NAME';  

• @<<<<<< 表示左对齐。
• @##### 用于数值的输出，表示数值应放在此处。

示例程序

#!/usr/bin/perl  
# 定义格式  
format STDOUT =  
------------------------------------  
Item             : @<<<<<<<<<<<<<<<<  
$item  
Price            : @#####.##  
$price  
------------------------------------  
.  
my @items = (  
    { name => 'Apple', price => 1.20 },  
    { name => 'Banana', price => 0.50 },  
    { name => 'Cherry', price => 2.00 },  
);  
# 将标准输出的格式设定为我们定义的格式  
$~ = 'STDOUT';  
foreach my $product (@items) {  
    # 将将变量赋值，以便格式使用  
    $item = $product->{name};  
    $price = $product->{price};  
    # 写入 STDOUT，即应用定义的格式  
    write;  
}  

使用建议

• 在现代 Perl 中，建议使用其他更强大和灵活的模块如 Text::Table 和 Format::Human::Bytes 来处理格式化输出。
• 格式化输出非常适合需要打印横幅式报告或固定列宽输出的旧程序。

最后，尽管 Perl 的格式化输出对于学习 Perl 的过程中可能会提供历史和使用上的深度理解，但在现代软件开发实践中，格式化输出因为其比较复杂并且难以阅读、维护，逐渐被更现代化、更易读的打印方法或格式库所取代。