perl不能写入文件内容的奇怪问题

climby

我想问题可能还是出在文件打开的方式上， 以"+<" 方式打开文件，松散意义上讲，文件可读可写，但是这种打开方式基本都是应用在对原来文件的更新上，理论上不支持追加的。
看楼主的意思是想把信息追加到文件中去，我想这就是不成功的原因吧。我如果有时间，我也写点代码验证一下我的想法

climby

我刚才写了片段尝试了一下， 正与我所预料的一样， "+<" 方式打开文件，主要用于文件的更新，用于更新当前文件指针所指的位置。 楼主的代码，通过

1. while(<ML>){  ...

复制代码

操作，已经将文件指针移至文件末尾，在此种情况下，再通过

1. print  ML "$u\t$id\t$mail\n";

复制代码

追加内容，肯定时追加不上的 .....

climby

补记：

肯定很多人要问，如何解决楼主的要求呢？  

使用 "+>>" 最为文件的打开方式就可以了，这种打开方式，支持追加，就能将需要的内容追加到文件末尾了{:3_189:}

sx98083714

没问题，你说怪不怪。

toniz

不怪，查查程序其它地方。

toniz

或者是说  $id  $mail   这两个变量是空的。

sx98083714

谢谢climby，谢谢 toniz，我弄二个文件句柄，代码重新写了一遍，现在可以了，估计问题就是climby说的，我也再测试一下。

sx98083714

哈哈，测试通过，谢谢climby！

toniz

1. open FH1,"+<t1" or die "cant open  FH1";
   
2. while(<FH1>){
   
3.         print "$_";
   
4. }
   
5. 
   
6. print FH1 "kkkkk\n";

复制代码

我是没任何问题。。。。文档也说了，这种方法是最常用的。