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

perl script adds extra curly brackets

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

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

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


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

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

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