Perl版有点冷清，还是要问个问题：怎样删除文件中的一部分?

[ozw]

比如从第n行起删除，删除x行?
或者删除从字符串"INDEX:02"开始，到字符串"INDEX:03"中间的部分？
印象中好像用push就可以，有没有更好的方法？

[netken]

用while <FILEHANDLE>
然后写到临时文件，再覆盖原文件
前面有类似的帖子
可以参考一下

[ozw]

我的文件不大，不写到临时文件也可以，
我现在的方法是:
在while <FILEHANDLE> 的过程中根据条件用push方法把需要的行保存进数组
退出循环后,再写回原文件

我想知道有没有简便一点的方法,比如用正则表达式,grep等

有没有象操作记录一样的方法？

[netken]

如果你把分界符 $\ = undef;
然后 $scalar = <FH>;
然后就可以用 s/INDEX:01.*INDEX:02//;
来做替换删除？
不知道你是不是这个意思？

[ozw]

谢谢netken(小肯)
我的程序还是用笨办法解决了，等我有空试试你提供的方法