perl中如何将一个大文件的前面一小段删除

chenyan1206

1^# chenyan1206 发表于 2008-05-08 09:15

我只知道truncate是删除后面一小段

apile

2^# apile 发表于 2008-05-08 09:29

开启两个file handle..一个读.一个写....

chenyan1206

3^# chenyan1206 发表于 2008-05-08 10:02

apile ,感谢
open R, "<filename";
open W, "+<filename";
while(<R>){
print W if ()
}
truncate( W, tell(W) );