关于 linux:perl 脚本添加额外的大括号

以下脚本，我正在使用它，除了在文件末尾添加三个额外的大括号外，它执行的一切都很好。

abc.jso 包含许多行，其中几行只有打开/关闭大括号(以防万一，此信息有帮助)

我尝试使用 print $a” $var”; 而不是 print $a”$var”;。简而言之，我在这个 print 前面添加了空格

有一些示例输入和输出会有所帮助，但让我猜测一下。尝试通过 seek 截断文件：

truncate $a,0;
seek $a,0,0;

如果没有截断，您将覆盖之前的内容。如果您写的信息多于阅读的信息，则此方法有效，但如果您写的信息少于阅读的信息，则效果不佳。