请问perl打开一个可写入的文件后怎样才能读取他的内容

wine_cu

我用在当前目录下放了一个rd.txt的文件，用如下代码打开后无法读取他的内容，只能用open(FF,"rd.txt")种方式才可以读取打印他的内容。请问代码要怎样修改才可以  打印  用可写入方式  打开的文件？？？

open(FF,">>rd.txt");
@a=<FF>;
print @a;

黑色阳光_cu

open(FF,"+>>rd.txt");

wine_cu

不行啊，加了那个 +也一样，没有任何输出

yybmsrs

>>这种是写的方式，读的话应该用open(FF,"rd.txt");

不能一边读一边写

wine_cu

哈哈，查到方法了，因为追加方式打开的文件，指针会在文件尾（用tell函数可以测出结果），所以如果要读的话需要将指针移到文件开头（可以用seek函数），之后再将他句柄赋值给数组就可以读出他的结果了。不过还是需要用二楼的open(FF,"+>>rd.txt");

toniz

直接用 +< 读更新就可以了

1. open(FF,"+< rd.txt");
   
2. @a=<FF>;
   
3. print @a;

复制代码

:wink: