如何在Perl中使用格式？

为了在Perl脚本中调用格式声明，我们将使用write关键字-

write EMPLOYEE;

问题在于格式名称通常是打开的文件句柄的名称，而write语句会将输出发送到该文件句柄。由于我们希望将数据发送到STDOUT，因此必须将EMPLOYEE与STDOUT文件句柄相关联。但是，首先，我们必须使用select()函数确保STDOUT是我们选择的文件句柄。

select(STDOUT);

然后，通过使用特殊变量$〜或$FORMAT_NAME设置新格式名称和STDOUT，将EMPLOYEE与STDOUT关联起来，如下所示-

$~ = "EMPLOYEE";

现在执行a时write()，数据将发送到STDOUT。请记住：如果要用其他文件句柄而不是STDOUT编写报告，则可以使用select()函数选择该文件句柄，其余逻辑将保持不变。

示例

让我们来看下面的例子。在这里，我们有硬编码的值，仅用于显示用法。在实际使用中，您将从文件或数据库中读取值以生成实际报告，并且可能需要将最终报告再次写入文件。

#!/usr/bin/perl

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

select(STDOUT);
$~ = EMPLOYEE;

@n = ("Ali", "Raza", "Jaffer");
@a = (20,30, 40);
@s = (2000.00, 2500.00, 4000.000);

$i = 0;
foreach (@n) {
   $name = $_;
   $age = $a[$i];
   $salary = $s[$i++];
   write;
}

输出结果

执行后，将产生以下结果-

===================================
Ali                20
2000.00
===================================
===================================
Raza              30
2500.00
===================================
===================================
Jaffer            40
4000.00
===================================