文件覆盖写入问题

文件覆盖写入问题

如:

我现在有一个文件$a,这个文件里面有:

1
2
3
4
5
6
7
8

这几个数字.

我将$a文件里面的内容写入a.txt文件里面.

是覆盖写. 每写一次覆盖前面的内容.
seek FILEHANDLE, OFFSET, WHENCE 定位文件指针
WHENCE : 0,文件开头;1 文件的当前位置;2,文件结尾
open FH , "+<file";
check 一下系统,看看 rename $a, 'a.txt';

如果不想保留这个$a 文件的话。

或者用File::Copy  没必要非得print吧

谢谢楼上的几位!已经解决.