关于 linux:perl 脚本添加额外的大括号
perl script adds extra curly brackets
以下脚本，我正在使用它，除了在文件末尾添加三个额外的大括号外，它执行的一切都很好。
abc.jso 包含许多行，其中几行只有打开/关闭大括号(以防万一，此信息有帮助)
我尝试使用 print $a" $var"; 而不是 print $a"$var";。简而言之，我在这个 print 前面添加了空格
相关讨论
- 如果看起来这个文件包含 JSON 数据，您应该使用 JSON::XS 之类的模块来解析其内容(可能使用 File::Slurper 读取)并操作生成的数据结构，而不是尝试使用正则表达式在个别线路上。
有一些示例输入和输出会有所帮助，但让我猜测一下。尝试通过 seek 截断文件：
truncate $a,0;
seek $a,0,0;
如果没有截断，您将覆盖之前的内容。如果您写的信息多于阅读的信息，则此方法有效，但如果您写的信息少于阅读的信息，则效果不佳。