Re: Temporary file management in Perl -- is it possible?

If the timer is the only one you need in your program, the most lightweight way would probably be to use File::Temp's UNLINK mechanism (it's a good idea to use this for tempfile creation anyway):

$tmp = File::Temp->new(UNLINK => 1);
$SIG{ALRM} = sub { undef $tmp };
alarm(600);
[download]

However, you must be sure not to use that tempfile after the timeout. If you can be sure of that, question is why you don't just remove the file when you're done with it?

Comment on Re: Temporary file management in Perl -- is it possible? Download Code

Replies are listed 'Best First'.
Re^2: Temporary file management in Perl -- is it possible? by taint (Chaplain) on Apr 24, 2013 at 23:43 UTC
Greetings mbethke, and thank you for the reply. I looked at File::Temp. But if I'm not mistaken, it creates an (altho temporary) actual copy of the file. While this wouldn't be the "end of the earth" for me, these files are ~150Mb each. Copy time, and space seems less efficient than using a symlink. Which is why I chose that direction. Maybe kennethk's suggestion solves this. Then again, perhaps initiating a check at the beginning of this script, similar to: `#!/bin/sh - find . -type f -name '.tbz2' -maxdepth 1 -cmin '+24' \| xargs rm exit` [download] would be nearly good enough. OK, the above is a shell script, and while I could* "shell out" within Perl. I'm sure there must be a way do do the same whithin Perl. :) Thanks again for taking the time to respond! --chris #!/usr/bin/perl -Tw use perl::always; my $perl_version = "5.12.4"; print $perl_version;	[reply] [d/l]
Re^3: Temporary file management in Perl -- is it possible? by kennethk (Abbot) on Apr 25, 2013 at 14:48 UTC
If you want to do a clean-up first, you could invoke system at the start of your script: `system(q{find . -type f -name '.tbz2' -maxdepth 1 -cmin '+24' \| xargs + rm})` [download] You can also invoke all necessary commands in Perl `opendir my $dh, '.'; for (readdir $dh) { unlink if -l and /\.tbz2$/ and 24 60 * -M > 10; }` [download] See -X. #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.	[reply] [d/l] [select]
Re^4: Temporary file management in Perl -- is it possible? by taint (Chaplain) on Apr 25, 2013 at 17:29 UTC
Greetings kennethk, and thank you for taking the time to provide this solution! That's exactly what I was thinking. But, while having read -X, still hadn't figured out how to accomplish it in Perl. Thanks, again. I really appreciate it. --chris #!/usr/bin/perl -Tw use perl::always; my $perl_version = "5.12.4"; print $perl_version;	[reply]


Perl Monk, Perl Meditation
	PerlMonks