[perl]如何对文本进行自动修改?

[haibo1979]

大家好,我想做的是

在一个文本里,自动挑出其中某些可能有错误的句子输出到屏幕,
然后检查人员对其进行修改后,修改后的内容自动替换原来的错误内容.

我的做法是 采用 $rewrite = <>;chomp $rewrite; 将输入结果存在$rewrite里
然后用 $rewrite 自动替换文本中的错误部分.

这样导致的结果是:
如果$rewrite 的字节数和要替换部分的字节数不同,就会导致整个文本的数据结构错误.

不知道应该怎么解决这个问题?

不知道有没有人做过类似我这样的工作?

谢谢啦

[xyzxyz1111]

写到个零时的文件里？

[haibo1979]

好像稳妥的方法就是将
整个改写后的文本文件存成一个临时文件,然后用这个临时文件替换原来的文件了

谢谢帮忙啦

[if_fi]

最近也遇到这种问题，LZ能详细说明以下啊，多谢了。

[yakai]

每次等用户输完纠正的就重新写一次文件就可以了阿，反正你能等他慢慢输，写次文件也没什么了不起的，而且可以每次等用户输入一部分就续上一部分，反正都是最加，后面的部分全部放到内存里面就是了