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

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.

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

Replies are listed 'Best First'.
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]