NAME
File::MultiTemp - manage a hash of temporary files
VERSION
version v0.1.5
SYNOPSIS
my $files = File::MultiTemp->new(
suffix => '.csv',
template => 'KEY-report-XXXX',
);
...
my @headers = ....
my $csv = Text::CSV_XS->new( { binary => 1 } );
my $fh = $files->file_handle( $key, sub {
my ( $key, $path, $fh ) = @_;
$csv->say( $fh, \@headings );
} );
$csv->say( $fh, $row );
...
$files->close;
my @reports = @{ $files->files };DESCRIPTION
This class maintains a hash reference of objects and opened filehandles.
This is useful for maintaining several separate files, for example, several reports based on codes where grouping the data may require a lot of work for the database.
ATTRIBUTES
template
This is the filename template that is passed to File::Temp. It should have a string of at least four Xs in a row, which will be filled in with a unique string.
If it has the text "KEY" then that will be replaced by the hash key. Note that this should only be used if the hash key is suitable for a filename.
This is optional.
has_template
Returns true if "template" is set.
suffix
This is the filename suffix that is passed to File::Temp. This is optional.
has_suffix
Returns true if "suffix" is set.
dir
This is the base directory that is passed to File::Temp. This is optional.
has_dir
Returns true if "dir" is set.
unlink
If this is true (default), then the files will be deleted after the object is destroyed.
init
This is an optional function to initialise the file after it is created.
The function is calle with the three arguments:
- key
-
The hash key.
- file
-
The Path::Tiny object that was created.
You can use the
cached_tempmethod to access the original File::Temp object. - fh
-
The file handle, which is an exclusive write lock on the file.
has_init
Returns true if "init" is set.
METHODS
file
my $path = $files->file( $key, \&init );This returns a Path::Tiny object of the created file.
A file handle will be opened, that can be accessed using "file_handle".
If a &init function is passed, then it will be called, otherwise the "init" function will be called, with the parameters documented in the "init" function.
file_handle
my $fh = $files->file_handle( $key, \&init );This is a file handle used for writing.
If the filehandle does not exist, then it will be re-opened in append mode.
keys
This returns all files created.
files
This returns all files created.
close
This closes all files that are open.
This is called automatically when the object is destroyed.
SEE ALSO
SOURCE
The development version is on github at https://github.com/robrwo/perl5-File-MultiTemp and may be cloned from git://github.com/robrwo/perl5-File-MultiTemp.git
BUGS
Please report any bugs or feature requests on the bugtracker website https://github.com/robrwo/perl5-File-MultiTemp/issues
When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.
AUTHOR
Robert Rothenberg <rrwo@cpan.org>
The initial development of this module was sponsored by Science Photo Library https://www.sciencephoto.com.
COPYRIGHT AND LICENSE
This software is Copyright (c) 2022-2023 by Robert Rothenberg.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)