第二个（独立的）while 循环不在 Perl 中执行

Question

我正在尝试使用 Perl 脚本使用两个独立的 while 循环读取两个单独的文件。我正在使用面向对象的方式来读取文件（模块 IO::File）。读取 file1 的第一个 while 循环运行良好，但读取 file2 的第二个 while 循环没有读取任何内容。我的代码如下，

 #!/usr/bin/perl
 use 5.18.0;
 use warnings;
 use IO::File;
 $file1="file1.dat";
 $file2="file2.dat";
 my $f1 = IO::File -> new("< $file1") or die "Cannot read file1: $!"; 
 my $f2 = IO::File -> new("< $file2") or die "Cannot read file2: $!";

 while ( $linef1 = $f1 -> getline() ){
      data extraction from file 1 
}
$f1 -> close;
while ( $linef2 = $f2 -> getline() ){
    data extraction from file 2
   }

我在第二个 while 循环中写了几个打印语句来查看它们是否正在执行。我发现打印语句没有执行，这意味着程序没有进入第二个 while 循环。这意味着第二个 while 循环的 getline() 语句可能有问题，但我不知道如何解决。任何帮助，将不胜感激。 编辑：为简洁起见，我在代码中省略了一些变量声明。

Edit2：这是我正在做的一个最小示例。

#!/usr/bin/perl
use 5.18.0;
use warnings;
use IO::File;

my $output_filename = $ARGV[0];
my $file = substr($output_filename,0,-4);
my $line;
my $linef;
my $foo = 0;
my $bar = 0;
my $fchk_filename = "hcho_fr.fchk";

my $fout = IO::File -> new("< $output_filename") or die "Cannot read log file: $!"; 
my $ffchk = IO::File -> new("< $fchk_filename") or die "Cannot read fchk file: $!";

 while ( $line = $fout -> getline() ){
    if ($line =~ /Initial\sParameters/){
      $foo++;
      print("Still in the first while loop.\n");
     }
  }

  print("First while loop completed.\n");
  $fout -> close;

  while ( $linef = $ffchk -> getline() ){
  print("Entered the second while loop.\n");
  if ( $linef =~ /Cartesian Gradient/ ){
    $bar++;
    print("Still in the second while loop.\n");
     }
   }

   print("Successfully executed.\n");

这段代码运行没有任何错误，并给了我以下输出。

   Still in the first while loop.
   Still in the first while loop.
   First while loop completed.
   Successfully executed.

Answer 1

以下是一些想法：

很可能 - 第二个文件是否以空行开头？您是否有可能得到一个空的但真实的价值？也许更好地检查

while ( defined($linef = $ffchk -> getline()) ){
  print("Entered the second while loop.\n");
  if ( $linef =~ /Cartesian Gradient/ ){
    $bar++;
    print("Still in the second while loop.\n");
  }
}

只是为了确保您得到的是一个定义的值而不是一个可能为空的值。

如果您读取不同的文件会发生什么？还是与第一个循环相同的文件？确保它不是简单的东西，比如缺少换行符。

最后，您是否尝试过在代码中添加“$| = 1”以确保输出没有在某处缓冲？这是一个很长的镜头，但有时输出可能看起来好像没有显示，因为它位于缓冲区中，等待在它出现之前被刷新。我怀疑这里是否会发生这种情况，但这是绝对确定的好方法。

这些只是根据您所描述的一些随机想法。