readline on closed filehandle

Question

我使用這個子文件作爲我的程序，等待幾個小時才能完成它在windows上做的任務。 當Windows任務完成時，它會更新文本文件中的字符串，以使Linux腳本知道Windows已完成。

我，而它的運行得到這個錯誤： 的ReadLine（）在關閉文件句柄

這裏是子

my $numberOfChecks = 28; 
my $sleepTime = 900; 
my $communicationsFile = "/home/user/ICAhome/Win_To_Linux_ComFile.txt"; 
my $winBuild = "1"; 

sub waitForWindowsBuild { 
    while ($numberOfChecks-- $$ $winBuild == "1"){ 
     open (MYFILE, $communicationsFile); 

     while (<MYFILE>){ 
      chomp; 
      if ($_ eq $buildValue){ 
       $winBuild="1"; 
      } 

      sleep($sleepTime); 
     } 

     close(MYFILE); 
    } 
} 

誰能告訴我這是怎麼回事？

謝謝！

Answer 1

檢查open是否成功。例如，

open (MYFILE, $communicationsFile) 
    or die("Can't open $communicationsFile: $!\n");