perl如何判断文件结束

charmkid

如何使用while判断文件结束？我是新手

我想处理一个文本文件的偶数行，但是下面的程序一直跑不通，哪位大侠能帮我看看。
#!/usr/bin/perl -w
open (INFILE, "diff.txt");
open (OUTFILE, ">Result.txt");

print "Please Input delta T (us):";
$r=<STDIN>;
chomp $r;
$r=$r*0.000001;

$x=0;
$y=1;

while (<INFILE>)

{

while ($x==0)
  {$line=<INFILE>;
   $linebk1=$line;
   $line=~ s/"time" //;
   $time1=$line;
   $line=<INFILE>;
   $x=$line;
   }      

while ($x==1)
  {$line=<INFILE>;
   $linebk2=$line;
   $line=~ s/"time" //;
   $time2=$line;
   $line=<INFILE>;
   $x=$line;
   }      
   

$t=$time2-$time1;

if ($t>$r)
   {print "$y FAILED\n";
    print OUTFILE "$y FAILED\n";
    print OUTFILE "ERROR START: $linebk1";
    print OUTFILE "ERROR ENDED: $linebk2";
    print OUTFILE "\n";
   }
else {print "$y SUCCESS\n";
      print OUTFILE "$y SUCCESS\n";
      print OUTFILE "SUCCESS START: $linebk1";
      print OUTFILE "SUCCESS ENDED: $linebk2";
      print OUTFILE "\n";
     }

$y++

}

close (INFILE);
close (OUTFILE);

[ 本帖最后由 charmkid 于 2009-12-17 12:39 编辑 ]

Perl_Er

while(<FH>)

charmkid

谢谢大侠，能说详细点吗？

dahe_1984

到末尾了就没了，还要说什么。 while就结束了

兰花仙子

原帖由 charmkid 于 2009-12-16 17:45 发表
如何使用while判断文件结束？我是新手

perldoc -f tell

# perl -le 'open HD,"1.txt" or die $!; local $/;$x=<HD>;print length $x'         
326
# perl -le 'open HD,"1.txt" or die $!; @x=<HD>;print tell HD'                    
326

charmkid

还是不懂，我想使用处理一个文本文件的，一行一行处理，到最后一行结束，如何才能实现？

兰花仙子

你就while(<FD>)呀，到行结束时，while自然会跳出去的。
看小骆驼。

Perl_Er

别以为不看书就什么都学会！

charmkid

我在看书啊，但是一口吃不成胖子，这个题目有点急，先向大家请教一下

charmkid

原帖由 兰花仙子 于 2009-12-16 20:28 发表
你就while()呀，到行结束时，while自然会跳出去的。
看小骆驼。

如何使用while(<FD>)
小骆驼是哪本书？