在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;