Perl 教程 之 Perl 格式化输出 5
Perl 格式化输出
Perl 是一个非常强大的文本数据处理语言。
Perl 中可以使用 format 来定义一个模板，然后使用 write 按指定模板输出数据。
格式变量
$~ ($FORMAT_NAME) ：格式名字 $^ ($FORMAT_TOP_NAME) ：当前的表头格式名字存储在
$% ($FORMAT_PAGE_NUMBER) ：当前输出的页号
$= ($FORMAT_LINES_PER_PAGE) ：每页中的行数
$| ($FORMAT_AUTOFLUSH) ：是否自动刷新输出缓冲区存储
$^L ($FORMAT_FORMFEED) ：在每一页(除了第一页)表头之前需要输出的字符串存储在
以下实例我们通过添加报表头部信息来演示 $^ 或 $FORMAT_TOP_NAME 变量的使用：
实例
!/usr/bin/perl
format EMPLOYEE =
@<<<<<<<<<<<<<<<<<<<<<< @<<
$name, $age
@#####.##
$salary
.
format EMPLOYEE_TOP =
Name Age
.
select(STDOUT);
$~ = EMPLOYEE;
$^ = EMPLOYEE_TOP;
@n = ("Ali", "Baidu", "Jaffer");
@a = (20,30, 40);
@s = (2000.00, 2500.00, 4000.000);
$i = 0;
foreach (@n){
$name = $_;
$age = $a[$i];
$salary = $s[$i++];
write;
}
以上实例输出结果为：
===================================
Name Age
===================================
Ali 20
2000.00
===================================
Baidu 30
2500.00
===================================
Jaffer 40
