perl - 在 perl 中编写文件处理函数

Question

我正在尝试使用 perl 的 write 函数来格式化写入文件中的输出。但我无法这样做，因为它给了我错误：第 3 行不推荐使用无逗号变量列表。

format STDOUT=
@<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<
  $text            $text1
.
$text="hello";
$text1="world!";
write;

Answer 1

只需将其替换为

format STDOUT=
@<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<
  ($text, $text1)
.
$text="hello";
$text1="world!";
write;