FileCache - keep more files open than the system permits
use FileCache;# oruse FileCache maxopen => 16;cacheout $mode, $path;# orcacheout $path;print $path @data;$fh = cacheout $mode, $path;# or$fh = cacheout $path;print $fh @data;Thecacheout function will make sure that there's a filehandle open for reading or writing available as the pathname you give it. It automatically closes and re-opens files if you exceed your system's maximum number of file descriptors, or the suggested maximummaxopen.
The 1-argument form of cacheout will open a file for writing ('>') on it's first use, and appending ('>>') thereafter.
Returns EXPR on success for convenience. You may neglect the return value and manipulate EXPR as the filehandle directly if you prefer.
The 2-argument form of cacheout will use the supplied mode for the initial and subsequent openings. Most valid modes for 3-argumentopen are supported namely;'>','+>','<','<+','>>', '|-' and '-|'
Returns EXPR on success for convenience. You may neglect the return value and manipulate EXPR as the filehandle directly if you prefer.
While it is permissible toclose a FileCache managed file, do not do so if you are callingFileCache::cacheout from a package other than which it was imported, or with another module which overridesclose. If you must, useFileCache::cacheout_close.
sys/param.h lies with itsNOFILE define on some systems, so you may have to setmaxopen yourself.
FileCache installs signal handlers for CHLD (a.k.a. CLD) and PIPE in the calling package to handle deceased children from 2-argcacheout with'|-' or'-|'expediently. The children would otherwise be reaped eventually, unless you terminated before repeatedly calling cacheout.
1 POD Error
The following errors were encountered while parsing the POD:
You forgot a '=back' before '=head1'
Perldoc Browser is maintained by Dan Book (DBOOK). Please contact him via theGitHub issue tracker oremail regarding any issues with the site itself, search, or rendering of documentation.
The Perl documentation is maintained by the Perl 5 Porters in the development of Perl. Please contact them via thePerl issue tracker, themailing list, orIRC to report any issues with the contents or format of the documentation.