请教如何用perl清空一个文档的内容

li_000828

RT

wtuter

回复 1# li_000828

打印空内容到这个文件？

open(FS,">/home/ufile")
    print FS "";

兰花仙子

回复  li_000828

打印空内容到这个文件？

open(FS,">/home/ufile")
    print FS "";
wtuter 发表于 2010-12-08 15:35

    第二句是多余的。
">"模式打开后就清空了，记得close.

li_000828

上面方法可以清空文件，我现在有这么一个情况。
先打开文件，然后进行，匹配过滤，最后再清空它。

我试了下面这个方法，但是不行：
open F,"+< file";
while(<F>){
  .............
}
print F "";

climby

回复 4# li_000828


    你这个方法应该不行，因为文件指针已经移动到文件的结尾了，你再 print "". 不会做清空操作的。
   简单的方法就在你做完操作后close掉，然后用上上面的 ">" 的方法open一下再关掉，就清空了。如果想一次做完的话，我想你应该用seek(FH,0.0)把文件指针移到文件头，然后truncate(FH,0). 最后关掉。 这样明显复杂了些

li_000828

回复 5# climby


open F,"< file";
while(<F>){
  .............
}
open F,"> file";
close(F);


我这样可以吗？

langren868

回复 6# li_000828


    怎么不COPY先呢，当然这样是可以清空文件的。

climby

回复 6# li_000828


    对，你这样做应该是可以的

li_000828

回复 8# climby


    多谢指点！

realgod

`>$file`；
能用shell简单处理就用shell吧