develooper Front page | perl.beginners | Postings from December 2002

Using while ( -e $file )

Thread Previous | Thread Next
From:
Scot
Date:
December 26, 2002 13:43
Subject:
Using while ( -e $file )
Message ID:
PAEEIJCHPFHEDADDGJFLMEONCGAA.scotrn@cox.net

Hi; 

 Trying to write a file monitor for temp files using a while loop. 
The problem is that the file test does not seem to be re-evaulated 
each loop. If I delete the file after the loop has started it 
drops into the. SHRUNK test. I would think it would drop out of the 
while loop.  
 
while ( -e $tfile ) { 
      $SIZE = (-s "$TEMPFILE") /1024;
      if ( $SIZE > $PSIZE ) {
         $PSIZE="$SIZE";
         print "$TEMPFILE Size = $SIZE Kb\n";
      } elsif ( $SIZE < $PSIZE ) {
         print "$TEMPFILE SHRUNK! from $PSIZE to $SIZE  Kb\n";
	}
	sleep(10); 
}



Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About