perl script adds extra curly brackets
以下脚本,我正在使用它,除了在文件末尾添加三个额外的大括号外,它执行的一切都很好。
我尝试使用
有一些示例输入和输出会有所帮助,但让我猜测一下。尝试通过 seek 截断文件:
seek $a,0,0;
如果没有截断,您将覆盖之前的内容。如果您写的信息多于阅读的信息,则此方法有效,但如果您写的信息少于阅读的信息,则效果不佳。
以下脚本,我正在使用它,除了在文件末尾添加三个额外的大括号外,它执行的一切都很好。
我尝试使用
有一些示例输入和输出会有所帮助,但让我猜测一下。尝试通过 seek 截断文件:
seek $a,0,0;
如果没有截断,您将覆盖之前的内容。如果您写的信息多于阅读的信息,则此方法有效,但如果您写的信息少于阅读的信息,则效果不佳。