Perl中的Format命令

Question

我无法完全理解输出文件中是如何打印名为OUT1_TOP的格式的。我可以看到有一个函数用OUT1编写函数，它会在输出文件中打印格式OUT1，但我不知道如何以及何时调用OUT1_TOP。

open(OUT1,">outputfile");
format OUT1_TOP =

                                                  #         REPORT            #


Date : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date
--------------------------------------------------------
Column1           Column1                   Column1     
--------------------------------------------------------
.
format OUT1 =
@<<<<<<<<<<<<<<  @<<<<<<<<<<<<<<<<<<<<<<<<<  @<<<<<<<<  
$C1,$C2,$C3
.

open(FILE,$filename);
while(<FILE>)
{
# if else conditions where C1,C2,C3 are set ;
}
continue
{
 write OUT1;
}

输出： （见输出文件）

             #         REPORT            #


Date : Friday September 29 14:51:09 BST 2017
--------------------------------------------------------
Column1           Column1                   Column1     
--------------------------------------------------------
AAA1                    21                  30
BBB2                    2                   21

...... and so on 

Answer 1

来自perldoc -f write：

  

默认情况下，页面顶部格式是附加了_TOP的文件句柄的名称

因此，当您write到OUT1时，OUT1_TOP中的格式会在每个页面的顶部使用。

并发出提醒Dave Cross的评论：

  

@Vicky：我强烈建议您浪费时间学习格式。没有人在Perl中使用它们。