[求助]请高手看看我的合并两个文件的小程序错在哪里

yccpp

我只是想把两个文件简单的合并，在网上搜到好几种方法，但运行结果都不好，第二个文件开始的几行总是不能读进去和格式错误，刚学perl，很多东西不清楚，请高手指点，程序如下
open  my $IN8,"<","result7.txt" or die"$!";
open  my $OUT5,">","reverse.txt" or die"$!";   
     print $OUT5 reverse <$IN8> ;
     close (IN;
     close (OUT5);  

  open  my $OUT6,">> reverse.txt" or die"$!";
  open  my $IN5,"< 2.txt" or die"$!";  

while (my $line = <$IN5>
{
     my @temp_val3 = split(' ',$line);
    $EL_n3 = $temp_val3[0];
    $EL_x3 = $temp_val3[1];
    $EL_y3 = $temp_val3[2];
    $EL_z3 = $temp_val3[3];
    print $OUT6 "$EL_n3  $EL_x3 $EL_y3 $EL_z3 \n";
  }  
  
     close ($OUT6);
     close ($IN5);
运行该程序后，第9601行出错，且不是从2.txt的第一行读入。
输入文件.zip (165.04 KB, 下载次数: 6)

2013-08-16 16:07 上传

点击文件名下载附件
输入文件

kaixin9ok

9601是空行的原因吧..
加一行 next if /^$/ 试试

yccpp

谢谢kaixin9ok，还是不行，第9601行不是空行，运行的结果从第9600到9602行如下
2401 -2.5781753e-02 2.6002851e+00 0.0000000e+00
-01 2.6991291e+00 0.0000000e+00
2539  9.5216048e-01 2.6989741e+00 0.0000000e+00
想得到的结果从第9600到9602行如下：
2401  -2.5781753e-02   2.6002851e+00   0.0000000e+00
2401   2.5781753e-02   2.6002851e+00   0.0000000e+00
2402   7.7348262e-02   2.6003461e+00   0.0000000e+00
如果加了next if /^$/，第二个文件读不进去。

rubyish

1. close $IN;
   
2. close $OUT5;

复制代码

yccpp

非常感谢rubyish，就是这个问题，我太大意了，也是自己不是很熟悉PERL。

飞越地平线

回复 5# yccpp

1. use strict;

复制代码

yccpp

谢谢 飞越地平线，谢谢你的关注和帮助。