Opening and Closing Files
Another consequence of scripts remaining permanently loaded is that opened files are not automatically closed when a script terminates — because it doesn’t terminate until Apache is shut down. Failure to do this will eat up memory and file handles. It is important therefore that every opened file should be explicitly closed. However, it is not good enough just to use close() conscientiously because something may go wrong in the script, causing it to exit without executing the close() statement. The cure is to use the I/O module. This has the effect that the file handle is closed when the block it is in goes out of scope:
use IO; ... my $fh=IO::File->new("name") or die $!; $fh->print($text); #or $stuff=<$fh>; # $fh closes automatically
Alternatively:
use Symbol; ... My $fh=Symbol::gensym; Open $fh or die $!; .... #automatic close
Under Perl 5.6.0 this is enough:
open my $fh, $filename or die $!; ... # automatic close
Get Apache: The Definitive Guide, 3rd Edition now with the O’Reilly learning platform.
O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.