如何在Perl中定义格式?

Perl使用称为“格式”的书写模板来输出报告。要使用Perl的格式功能,必须先定义一种格式,然后才能使用该格式写入格式化的数据。

语法

以下是定义Perl格式的语法-

format FormatName =
fieldline
value_one, value_two, value_three
fieldline
value_one, value_two
.

此处的 FormatName表示格式的名称。该 的Fieldline是具体的方式,数据应该被格式化。值行表示将输入到字段行中的值。您用一个句点结束格式。

下一个 字段行可以包含任何文本或字段持有人。字段持有人保留了以后将放置在此处的数据的空间。字段持有人的格式为-

@<<<<

该字段保持符是左对齐的,字段空间为5。您必须对@符号和<符号进行计数,才能知道该字段中的空格数。其他领域持有人包括-

@>>>> right-justified
@|||| centered
@####.## numeric field holder
@* multiline field holder

一个示例格式是-

format EMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<<
$name $age
@#####.##
$salary
===================================
.

在此示例中,$name将在22个字符的空间内写为左对齐,而在该年龄之后,将在两个空间内写。